fork(1) download
  1. (begin (define (ZED= ZEDn1 ZEDn2) (cond (#t (= ZEDn1 ZEDn2)) (else err))) (define (ZED> ZEDn1 ZEDn2) (cond (#t (> ZEDn1 ZEDn2)) (else err))) (define (ZEDA ZEDm ZEDn) (cond ((ZED= ZEDm 0) (ZEDadd1 ZEDn)) ((and (ZED> ZEDm 0) (ZED= ZEDn 0)) (ZEDA (ZEDsub1 ZEDm) 1)) ((and (ZED> ZEDm 0) (ZED> ZEDn 0)) (ZEDA (ZEDsub1 ZEDm) (ZEDA ZEDm (ZEDsub1 ZEDn)))) (else err))) (define (ZEDadd1 ZEDn) (cond (#t (+ ZEDn 1)) (else err))) (define (and ZEDp1 ZEDp2) (cond (#t (and ZEDp1 ZEDp2)) (else err))) (define (ZEDsub1 ZEDn) (cond (#t (- ZEDn 1)) (else err))))
  2. (display (ZEDA 0 1))
Success #stdin #stdout 0.03s 4132KB
stdin
Standard input is empty
stdout
2