tankf33der

#lisp #лисп

[tankf33der @tankf33der]

@BBC_RADIO1 can NOT listen music on site for months - https://t.co/2xXV6Q5VX3 - Error404! Come on, fix it.

[The V Programming Language @v_language]

A thorough review of V by Kris Tun:

https://t.co/drxl9BTeZj

"I like V a lot. The abstraction over the syntax is so nice that made me enjoy writing the syntax as a whole."

"V has come a lot further than when I tried it in 2023. I’ll be actively using it from now on."

[Bob Konferenz @BOBKonf]

Pierre-Étienne Meunier's #BOBkonf2023 talk "Version control in the age of distributed computing" shows how newer version control systems like Pijul can lead to more predictable and reliable workflows.

Read more:
https://t.co/6Q5cujVoQI

[ayustate @ayustate]

Pijul とかロマンがあるよね。

[Pijul @pijul_org]

@timClicks Not so new, but Pijul can speed up your collaboration workflows.

[picolisp @PicoLispREPL]

I musk leave:

: (bye)

#PicoLisp #lisp #REPL

[picolisp @PicoLispREPL]

Database check is faster if you allocate more heap space with 'gc' first:

: (load "@lib/too.l")
-> loadDB

: (gc 1200) (dbCheck)
...

#PicoLisp #lisp #REPL

[picolisp @PicoLispREPL]

A simpler way (if no other alarm is currently scheduled by the application):

: (alarm (- (time 12 30) (time)) (kill *PPid))
-> 0
$

#PicoLisp #lisp #REPL

[picolisp @PicoLispREPL]

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

[picolisp @PicoLispREPL]

Digit sum:

: (sum format (chop 9045))
-> 18

: (sum format (chop 123456789123456789123456789123456789))
-> 180

#PicoLisp #lisp #REPL

[picolisp @PicoLispREPL]

Non-recursive factorial:

: (apply * (range 1 6))
-> 720

: (apply * (range 1 40))
-> 815915283247897734345611269596115894272000000000

#PicoLisp #lisp #REPL

[picolisp @PicoLispREPL]

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

[picolisp @PicoLispREPL]

Fork a child process and return its PID:

: (or (fork) (loop (wait)))
-> 9599

: (tell 9599 'msg '*Pid)
-> *Pid
9599

: (kids)
-> (9599)

: (tell 9599 'bye)
-> bye

: (kids)
-> NIL

#PicoLisp #lisp #REPL

[picolisp @PicoLispREPL]

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

[picolisp @PicoLispREPL]

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

[picolisp @PicoLispREPL]

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

[picolisp @PicoLispREPL]

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

[picolisp @PicoLispREPL]

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

[picolisp @PicoLispREPL]

Elevation in meters above sea level:

(de elevation (City)
(ssl "https://t.co/sbynV74Fxl" (pack "wiki/" City)
(and (from "Elevation") (from "infobox-data\">") (till "&" T)) ) )

: (elevation "Berlin")
-> "34"

: (elevation "Lhasa")
-> "3,656"

#PicoLisp #lisp #REPL

[Hacker News Bot @newsycombinator]

Why read Dostoevsky? A programmer's perspective https://t.co/ffeV7710xo