Posts by veer66@norze.world
(DIR) Post #AIwQfxzDEs8N6tihsm by veer66@norze.world
2022-04-29T12:32:39.603171Z
0 likes, 0 repeats
@celesteh Post 80s BASIC dialects look like Pascal. 😛 @thezerobit
(DIR) Post #AIwReYQMtNbbUnJQfo by veer66@norze.world
2022-04-29T12:43:38.533536Z
0 likes, 0 repeats
@dentangle I feel that PEEK and POKE is easier to understand than C pointers. 😑 @celesteh
(DIR) Post #AIwurMiecV6Nd1KJ9s by veer66@norze.world
2022-04-29T18:10:51.012947Z
0 likes, 0 repeats
@thezerobit Because you miss GOSUB 1000? @celesteh
(DIR) Post #AIwvmwTANFwd0nXLeq by veer66@norze.world
2022-04-29T18:21:17.498766Z
0 likes, 0 repeats
@vfrmedia I saw Acorn computers only in a magazine. BBC BASIC was as far away from me as Prolog in the 80s. 😸 @thezerobit @celesteh
(DIR) Post #AIwwQL96YsU8q1wK3s by veer66@norze.world
2022-04-29T18:28:25.948444Z
0 likes, 0 repeats
I forgot how C's for-loop works. 🤦🏾♂️
(DIR) Post #AIwzm58P4UzjPgfdA0 by veer66@norze.world
2022-04-29T19:05:57.055890Z
0 likes, 0 repeats
I hope to live long enough to read people complain about functional programming and static typing. 😲
(DIR) Post #AIxqdbsZFnN3vv6oBE by veer66@norze.world
2022-04-30T04:58:18.396694Z
0 likes, 0 repeats
I prefer Go programming language to Java programming language but I don't know how to call Go function from Clojure. 🤦🏾♂️
(DIR) Post #AJOPyAeznMornJ8cgi by veer66@norze.world
2022-05-13T00:36:42.676827Z
0 likes, 0 repeats
@AkuAnakTimur Now I don't even know if I'm using Pipewire or Pulseaudio. 😮💨
(DIR) Post #AJdbriCwmU4AdO6Vu4 by veer66@norze.world
2022-05-20T08:30:41.478540Z
0 likes, 0 repeats
(ql:quickload :jonathan)(defpackage #:group-imm (:use :cl :jonathan))(in-package :group-imm)(defun normalize (key) (intern key "KEYWORD"))(defun count-them () (with-open-file (f "imm-small.ndjson") (loop for line = (read-line f nil nil) with i = 0 while line as imm = (parse line :as :alist :keyword-normalizer #'normalize :normalize-all t) as src = (cdr (assoc :source imm)) when src do (let* ((tag (cdr (assoc :tag (car src)))) (len (length tag))) (setq i (+ i len))) finally (return i))))(count-them)(time (count-them))
(DIR) Post #AK4WPTM6YaY3C5dK5Y by veer66@norze.world
2022-06-02T08:06:43.209466Z
0 likes, 0 repeats
Emacs failed to verify TLS certs. So I installed GNUTLS, Nettle, Idn, and Unistring. :blobfacepalm: #!/bin/bashexport PKG_CONFIG_PATH=$HOME/lib64/pkgconfig:$HOME/lib/pkgconfigexport LD_RUN_PATH=$HOME/lib:$HOME/lib64export LD_LIBRARY_PATH=$HOME/lib:$HOME/lib64export LDFLAGS="-L$HOME/lib -L$HOME/lib64"rm -rf libunistring-1.0 libidn2-2.3.2 nettle-3.6 gmp-6.2.1 emacs-28.1curl https://ftp.gnu.org/gnu/libunistring/libunistring-1.0.tar.gz | tar -xzvf - && \ pushd libunistring-1.0 && \ ./configure --prefix=$HOME && \ make -j `nproc` && \ make install && \ popd || exit 1curl https://ftp.gnu.org/gnu/libidn/libidn2-2.3.2.tar.gz | tar -xzvf - && \ pushd libidn2-2.3.2 && \ ./configure --prefix=$HOME && \ make -j `nproc` && \ make install && \ popd || exit 1curl https://ftp.gnu.org/gnu/nettle/nettle-3.6.tar.gz | tar xzvf - && \ pushd nettle-3.6 && \ ./configure --prefix=$HOME --enable-mini-gmp && \ make -j `nproc` && \ make install && \ popd || exit 1 curl https://www.gnupg.org/ftp/gcrypt/gnutls/v3.7/gnutls-3.7.6.tar.xz | tar xJvf - && \ pushd gnutls-3.7.6 && \ ./configure --prefix=$HOME && \ make -j `nproc` && \ make install && \ cd .. || exit 1curl http://ftp.gnu.org/pub/gnu/emacs/emacs-28.1.tar.gz | tar -xzvf - && pushd emacs-28.1 && \ ./configure --prefix=$HOME --with-x-toolkit=no --with-xpm=no --with-jpeg=no --with-jpeg=no --with-gif=no --with-tiff=no --with-png=no && \ make -j `nproc` && \ make install && \ cd .. || exit 1echoechoecho "Emacs 28.1 must be ready!"echo
(DIR) Post #AKIhgqhkSrse3riCPo by veer66@norze.world
2022-06-09T04:19:06.923603Z
0 likes, 0 repeats
Even without static typing, SBCL warns me when I type an incorrect variable name. The thing is that I need to read warnings. ```LISP; compilation unit finished; Undefined variable:; LINK; caught 1 WARNING condition; caught 1 STYLE-WARNING condition```#commonlisp#lisp
(DIR) Post #AKIhjCvymq0xaHUcro by veer66@norze.world
2022-06-09T04:19:34.151720Z
0 likes, 0 repeats
Even without static typing, SBCL warns me when I type an incorrect variable name. The thing is that I need to read warnings. ; compilation unit finished; Undefined variable:; LINK; caught 1 WARNING condition; caught 1 STYLE-WARNING condition#commonlisp
(DIR) Post #AKIhlw8DiNDsLBWHuS by veer66@norze.world
2022-06-09T04:20:03.529923Z
0 likes, 0 repeats
Even without static typing, SBCL warns me when I type an incorrect variable name. The thing is that I need to read warnings. #commonlisp ; compilation unit finished; Undefined variable:; LINK; caught 1 WARNING condition; caught 1 STYLE-WARNING condition
(DIR) Post #AKKkbqhfjKOCmvu4jw by veer66@norze.world
2022-06-10T04:01:12.826672Z
0 likes, 0 repeats
.emacs 2022-06-10(require 'package)(setq package-archives '(("gnu" . "https://elpa.gnu.org/packages/") ("nongnu" . "https://elpa.nongnu.org/nongnu/") ("melpa" . "https://melpa.org/packages/")))(add-hook 'emacs-lisp-mode-hook #'enable-paredit-mode)(add-hook 'lisp-mode-hook #'enable-paredit-mode)(add-hook 'lisp-interaction-mode-hook #'enable-paredit-mode)(add-hook 'after-init-hook 'global-company-mode)
(DIR) Post #AKKvR6qsRuRLBMI57A by veer66@norze.world
2022-06-10T06:02:30.270806Z
0 likes, 0 repeats
I try to emulate Clojure’assoc on Common Lisp’s alist. #commonlisp #lisp #assoc #alist (defun assoc* (m k v &key test) (acons k v (remove-if (lambda (i) (if test (funcall test (car i) k) (eq (car i) k))) m)))
(DIR) Post #AKO08HoeXjQ0vhyRBw by veer66@norze.world
2022-06-11T17:39:19.377076Z
0 likes, 0 repeats
@carlozancanaro Thank you
(DIR) Post #AKdxRc0gp2x3skPnhw by veer66@norze.world
2022-06-19T10:24:36.552608Z
0 likes, 0 repeats
I'm back.
(DIR) Post #AL1ulXCC4od25xpsVk by veer66@norze.world
2022-06-30T23:47:38.795820Z
0 likes, 0 repeats
Yesterday, I thought I will forget what I wrote next week. I’ve forgotten it already.(defun diff-snode-when-snode2-is-not-null (snode1 snode2) (let ((snode1* '())) (loop for r1 in snode1 do (let ((r1s (list r1))) (loop for r2 in snode2 do (let ((r1s* '())) (loop for r1* in r1s do (let ((r3s (diff-range r1* r2))) (loop for r in r3s do (setq r1s* (cons r r1s*))))) (setq r1s r1s*))) (setq snode1* (nconc snode1* r1s)))) (sort snode1* #'< :key #'(lambda (r) (cdr (assoc :s r))))))
(DIR) Post #AL2KJesz9mcnVCXUUi by veer66@norze.world
2022-07-01T04:33:56.156469Z
0 likes, 0 repeats
After refactoring,(defun diff-snode-by-range (snode r) (loop for r1* in snode nconc (diff-range r1* r)))(defun diff-range-by-snode (r snode) (reduce #'diff-snode-by-range snode :initial-value (list r)))(defun diff-snode-when-snode2-is-not-null (snode1 snode2) (sort (loop for r1 in snode1 nconc (diff-range-by-snode r1 snode2)) #'< :key #'(lambda (r) (cdr (assoc :s r)))))
(DIR) Post #ALAIABDNSU6AEG6q2a by veer66@norze.world
2022-07-05T00:47:30.388894Z
0 likes, 0 repeats
norze.world is closing down. I moved to @veer66