picolisp @PicoLispREPL

PicoLisp development Alexander Burger picolisp.com Joined April 2022

Tweets

181
Followers

90
Following

11
Likes

3

picolisp @PicoLispREPL

3 years ago

I musk leave: : (bye) #PicoLisp #lisp #REPL

1 2 2 0 0

picolisp @PicoLispREPL

3 years ago

Rebuild an index tree (e.g. after a model change): : (load "@lib/too.l") -> loadDB : (rebuild (db: +Item) 'nm '+Item) -> T #PicoLisp #lisp #REPL

0 1 2 0 0

picolisp @PicoLispREPL

3 years ago

Database check is faster if you allocate more heap space with 'gc' first: : (load "@lib/too.l") -> loadDB : (gc 1200) (dbCheck) ... #PicoLisp #lisp #REPL

0 2 2 0 0

picolisp @PicoLispREPL

3 years ago

A simpler way (if no other alarm is currently scheduled by the application): : (alarm (- (time 12 30) (time)) (kill *PPid)) -> 0 $ #PicoLisp #lisp #REPL

0 2 2 0 0

picolisp @PicoLispREPL

3 years ago

Stop current server process family (parent and all child processes) at 12:30 o'clock: : (wait (* 1000 (- (time 12 30) (time)))) (kill *PPid) -> T $ #PicoLisp #lisp #REPL

0 2 2 0 0

picolisp @PicoLispREPL

3 years ago

Digit sum: : (sum format (chop 9045)) -> 18 : (sum format (chop 123456789123456789123456789123456789)) -> 180 #PicoLisp #lisp #REPL

0 2 2 0 0

picolisp @PicoLispREPL

3 years ago

Non-recursive factorial: : (apply * (range 1 6)) -> 720 : (apply * (range 1 40)) -> 815915283247897734345611269596115894272000000000 #PicoLisp #lisp #REPL

0 2 4 0 0

picolisp @PicoLispREPL

3 years ago

Minimal HTTP-Server: (allowed () "!foo") (load "@lib/http.l" "@lib/xhtml.l") (de foo () (html 0 "Title" NIL NIL (<h1> NIL "OK") ) ) (server 8080 "!foo") #PicoLisp #lisp #REPL

0 3 4 0 0

Communicate with a separate PicoLisp process using plain text: : (pipe (exec "pil" "-while (read) (println (mapcar inc @)) (flush)")) -> 3 : (out 3 (println (1 2 3))) -> (1 2 3) : (in 3 (read)) -> (2 3 4) : (close 3) -> 3 #PicoLisp #lisp #REPL

0 2 3 0 0

picolisp @PicoLispREPL

3 years ago

Communicate with a separate PicoLisp process: : (pipe (exec "pil" "-while (rd) (pr (mapcar inc @)) (flush)")) -> 3 : (out 3 (pr (1 2 3))) -> (1 2 3) : (in 3 (rd)) -> (2 3 4) : (close 3) -> 3 #PicoLisp #lisp #REPL

0 2 3 0 0

picolisp @PicoLispREPL

3 years ago

Communicate with a child process: : (pipe (while (rd) (pr (mapcar inc @)) (flush))) -> 3 : (out 3 (pr (1 2 3))) -> (1 2 3) : (in 3 (rd)) -> (2 3 4) : (close 3) -> 3 #PicoLisp #lisp #REPL

0 2 5 0 0

picolisp @PicoLispREPL

3 years ago

Load (read+eval) directly from a tarball: : cos -> NIL : (load '("tar" "xfzO" "pil21.tgz" "pil21/lib/math.l")) -> atan2 : cos -> ((A) (set "Dbl1" A) (%@ "cos" 100 "Dbl1")) : (pp 'cos) (de cos (A) (set "Dbl1" A) (%@ "cos" 100 "Dbl1") ) -> cos #PicoLisp #lisp #REPL

0 2 2 0 0

picolisp @PicoLispREPL

3 years ago

List all IP addresses of this machine: : (make (in '(ip addr) (while (from " inet ") (link (till " " T)) ) ) ) -> ("127.0.0.1/8" "176.221.46.93/24") #PicoLisp #lisp #REPL

0 4 5 0 0

picolisp @PicoLispREPL

3 years ago

Elevation in meters above sea level: (de elevation (City) (ssl "en.wikipedia.org" (pack "wiki/" City) (and (from "Elevation") (from "infobox-data\">") (till "&" T)) ) ) : (elevation "Berlin") -> "34" : (elevation "Lhasa") -> "3,656" #PicoLisp #lisp #REPL

0 3 3 0 0

tankf33der @tankf33der

3 years ago

#picolisp compiled and passed all tests on llvm15. #lisp #llvm

0 1 5 0 0

picolisp @PicoLispREPL

3 years ago

Write 16 random bytes and pipe into hexdump: : (pipe (do 16 (wr (rand 0 255)) ) (hd (fd)) ) 00000000 00 2D CF 46 29 04 B4 78 D8 68 A7 FF 3F 2B F1 FC .-.F)..x.h..?+.. -> NIL #PicoLisp #lisp #REPL

0 2 3 0 0

picolisp @PicoLispREPL

3 years ago

Deeper explanation of Vip ASCII drawing (video from 2019): picolisp.com/pub/VipAsciiDi… #PicoLisp #lisp #REPL

0 3 4 0 0

picolisp @PicoLispREPL

3 years ago

Print all files >= 1000000 bytes: : (let D "." (recur (D) (for F (dir D) (let S (car (info (pack D "/" F))) (cond ((=T S) (recurse @@)) ((> S 1000000) (prinl @@)) ] ./src/base.ll -> NIL #PicoLisp #lisp #REPL