Name: Anonymous 2008-06-26 15:31
I'm thinking about learning 1 of those 2 after finishing up with C. Which one has more uses?
; Reference implementation of Jot. See http://ling.ucsd.edu/~barker/Iota
; Usage: echo -n "1110011100" | guile -l jot.scm
(let jot ((v (lambda (x) x)))
(cond ((eof-object? (peek-char)) v)
((eq? #\1 (read-char)) (jot (lambda (f) (lambda (a) (v (f a))))))
(else (jot ((v (lambda (x) (lambda (y) (lambda (z) ((x z)(y z))))))
(lambda (x) (lambda (y) x)))))))
;K = 11100
;S = 11111000
;I = 11111111100000
; infinite loop: ```sii``sii =
; 11111111000111111111000001111111110000011111110001111111110000011111111100000
; diverging infinite loop: ```s`sk`sk``sii =
; 11111111000111111000111001111110001110011111110001111111110000011111111100000