Ideone.com

fork download

copy

(define zero (lambda (f) (lambda (x) x)))
(define (add-1 n)
  (lambda (f) (lambda (x) (f ((n f) x)))))
 
(add-1 zero)

Success #stdin #stdout 0.02s 4176KB

stdin

copy

Standard input is empty

stdout

copy

Standard output is empty

https://ideone.com/fN1lB

language:

Scheme (guile 2.2.4)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

Widget for compiling and running the source code in a web browser!