abe:~% rlwrap scheme 1 ]=> (abs -3) ;Value: 3 1 ]=> (map abs '(2 4 -5 6 -10)) ;Value 13: (2 4 5 6 10) 1 ]=> (even? 3) ;Value: #f 1 ]=> (filter even? '(2 3 4 5 10 20)) ;Value 14: (2 4 10 20) 1 ]=> (+ 3 4) ;Value: 7 1 ]=> (reduce + 0 '(1 2 3 4)) ;Value: 10 1 ]=> (reduce + 0 '(1)) ;Value: 1 1 ]=> (reduce + 0 '()) ;Value: 0 1 ]=> (reduce + 1000 '()) ;Value: 1000 1 ]=> (reduce + 1000 '(1 2 3 4)) ;Value: 10 1 ]=> (fold + 1000 '(1 2 3 4)) ;Value: 1010 1 ]=> (reduce - 0 '(1 2 3 4)) ;Value: 2 1 ]=> (reduce-left - 0 '(1 2 3 4)) ;Value: -8 1 ]=> (reduce-right - 0 '(1 2 3 4)) ;Value: -2 1 ]=> (reduce-left list '() '(1 2 3 4)) ;Value 15: (((1 2) 3) 4) 1 ]=> (reduce-right list '() '(1 2 3 4)) ;Value 16: (1 (2 (3 4))) 1 ]=> (fold-left list '() '(1 2 3 4)) ;Value 17: ((((() 1) 2) 3) 4) 1 ]=> (fold-right list '() '(1 2 3 4)) ;Value 18: (1 (2 (3 (4 ())))) 1 ]=> (fold list '() '(1 2 3 4)) ;Value 19: (4 (3 (2 (1 ())))) 1 ]=> (reduce list '() '(1 2 3 4)) ;Value 20: (4 (3 (2 1))) 1 ]=> (define (test a b) (if (= a 0) 0 b)) ;Value: test 1 ]=> (test (+ 1 2) (+ 3 4)) ;Value: 7 1 ]=> (define (p) (p)) ;Value: p 1 ]=> (p) ^C Interrupt option (? for help): ^C ;Quit! 1 ]=> (test 0 (p)) ^C Interrupt option (? for help): ^C ;Quit! 1 ]=> ^D End of input stream reached. Moriturus te saluto.