a little scheme

2024-08-20 19:10:43 +02:00 · 2024-08-20 19:10:43 +02:00 · 4a5b13324f
commit 4a5b13324f
parent c43a63cc2e
3 changed files with 1269 additions and 0 deletions
--- a/yast/hello.scm
+++ b/yast/hello.scm
@ -14,5 +14,16 @@
  (lambda (a b c)
    (+ a b c)))

+(define add1
+  (lambda (a)
+    (+ a 1)))
+
+(define sub1
+  (lambda (b)
+    (- b 1)))
+(display(string-append "sub1 to 2 is " (number->string(sub1 2)) "\n"))
+
+
 ;; display message on screen
 (display "Hello World!")
+