1 2 | guile> + #<primitive-procedure +> |
1 | (define add5 (lambda (x) (+ x 5))) |
1 | (add5 11) => 16 |
1 | (define square (lambda (x) (* x x))) |
1 2 3 4 | (define (add6 x) (+ x 6)) add6 #<procedure: add6 (x)> 说明add6是一个过程,它有一个参数x (add6 23) => 29 |
1 2 3 4 5 6 7 8 9 | guile> (define fun (lambda(proc x y) (proc x y))) guile> fun #<procedure fun (proc x y)> guile> (fun * 5 6) 30 guile> (fun / 30 3) 10 |
1 2 3 4 5 6 7 | guile> (define add (lambda (x y) (+ x y))) guile> add #<procedure add (x y)> guile> (fun add 100 200) 300 |
1 2 | guile> ((lambda (x) (+ x x)) 5) 10 |
1 2 3 4 5 6 7 8 9 | guile> (define isp (lambda (x) (if (procedure? x) 'isaprocedure 'notaprocedure))) guile> isp #<procedure isp (x)> guile> (isp 0) notaprocedure guile> (isp +) isaprocedure |
1 2 3 4 5 6 | (define fix (lambda (x y z) (define add (lambda (a b) (+ a b))) (- x (add y z)))) (display (fix 100 20 30)) |
欢迎光临 电子技术论坛_中国专业的电子工程师学习交流社区-中电网技术论坛 (http://bbs.eccn.com/) | Powered by Discuz! 7.0.0 |