first simple program

This commit is contained in:
Marco 2024-08-20 16:44:13 +02:00
commit fb6baaa630

4
first.scm Normal file
View File

@ -0,0 +1,4 @@
(define (p) (p))
(define (test x y) (if (= x 0) 0 y))
(print (test 1 (p)))