111 lines
2.8 KiB
Plaintext
Executable File
111 lines
2.8 KiB
Plaintext
Executable File
#! /home/nybble/src/c/rosella/rosella
|
|
|
|
; (lambda (number-string)
|
|
; (define (fact n)
|
|
; (if (< n 1)
|
|
; 1
|
|
; (* n (fact (- n 1)))))
|
|
; (fact (string->number number-string)))
|
|
|
|
#S(#="lambda"
|
|
; (lambda (number-string)
|
|
; (define (fact n) ...)
|
|
; (let/cc k
|
|
; (call-with-values
|
|
; (lambda () (string->number number-string))
|
|
; (lambda (n) (k (fact n))))))
|
|
#(
|
|
#S(#="template"
|
|
; (let/cc k
|
|
; (lambda (n)
|
|
; (define (fact n) ...)
|
|
; (k (fact n))))
|
|
#(
|
|
#0=#S(#="lambda"
|
|
; (define (fact n)
|
|
; ((if (< n 1)
|
|
; (lambda () 1)
|
|
; (lambda () ... n fact ...))))
|
|
#(
|
|
1
|
|
#S(#="lambda"
|
|
; (lambda _ 1)
|
|
#((1) #f)
|
|
#()
|
|
0
|
|
""
|
|
0xfe ; k
|
|
0x01 ; g1
|
|
0x02 ; g2
|
|
0x02 ; g2
|
|
)
|
|
#S(#="template"
|
|
; (let [n]
|
|
; (lambda _
|
|
; (let/cc k
|
|
; (call-with-values
|
|
; (lambda () (fact (- n 1)))
|
|
; (lambda (m) (k (* n m)))))))
|
|
#(
|
|
1
|
|
#S(#="template"
|
|
; (let (n)
|
|
; (let/cc k
|
|
; (lambda (m)
|
|
; (k (* n m)))))
|
|
#(#f)
|
|
"\x40\xfe" ; i0 k
|
|
1
|
|
"\x00\x80\x03\xfd\; (set! f0 (car argv))
|
|
\x0a\x80\x40\x80\; (set! f0 (fix* i0 f0))
|
|
\x02\x80\x80\x00"; (set! f0 (cons f0 nil))
|
|
0x41 ; i1
|
|
0x80 ; f0
|
|
0x01 ; g1
|
|
0x01 ; g1
|
|
)
|
|
#=0 ; fact
|
|
)
|
|
"\x80"
|
|
2
|
|
"\x09\x80\x40\x01\; (set! f0 (fix- i0 g1))
|
|
\x02\x80\x80\x00\; (set! f0 (cons f0 nil))
|
|
\x00\x81\x1b\x02"; (set! f1 (lambda g2))
|
|
0x03 ; g3
|
|
0x80 ; f0
|
|
0x81 ; f1
|
|
0xff ; ctx
|
|
)
|
|
)
|
|
#()
|
|
2
|
|
"\x00\x80\x03\xfd\; (set! f0 (car argv))
|
|
\x0d\x81\x80\x01\; (set! f1 (fix< f0 g1))
|
|
\x81\x81\x02\x03\; (set! f1 (if f1 g2 g3))
|
|
\x00\x81\x1b\x81"; (set! f1 (lambda f1))
|
|
0x81 ; f1
|
|
0x00 ; nil
|
|
0xfe ; k
|
|
0xff ; ctx
|
|
)
|
|
)
|
|
"\xfe\xff" ; k ctx
|
|
0
|
|
""
|
|
0x01 ; g1
|
|
0xfd ; argv
|
|
0x40 ; i0
|
|
0x41 ; i1
|
|
)
|
|
#="string->number" ; g2
|
|
)
|
|
#()
|
|
1
|
|
"\x00\x80\x1b\x01"; (set! f0 (lambda g1))
|
|
0x02 ; g2
|
|
0xfd ; argv
|
|
0x80 ; f0
|
|
0xff ; ctx
|
|
)
|
|
; vim:set syntax= sw=2 expandtab:
|