File: hello.scm

package info (click to toggle)
ruby-rsec 0.4.2-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 272 kB
  • sloc: ruby: 2,130; lisp: 13; makefile: 3
file content (18 lines) | stat: -rw-r--r-- 252 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
(display 4)

(define (fact x)
  (if (= x 0)
      1
      (* x (fact (- x 1)))))
 
(display (fact 6))
 
(define (add x)
  (lambda (y)
    (+ x y)))
 
(define add4 (add 4))
(define add5 (add 5))
 
(display (add4 3))
(display (add5 3))