LisL/examples

"Hello, World!" program:

(write "Hello, World!")

Truth-machine:

(set input (read)) (write input) (if (= input "1") ( (while opt ( (write "1")))) elif (= input "0") else ( (write "Must enter 1 or 0")))

Ackermann function:

(guide ack a ( (args a (x y)) (if (= x 0) ( (+ y 1))  elif (= y 0) ( (ack (- x 1) 1))  else ( (ack (- x 1) (ack x (- y 1))))))