Name: Anonymous 2008-12-20 15:04
fibs = 1 : zipWith (+) fibs (tail fibs)
fibs = 1 : zipWith (+) fibs (tail fibs)
USING: kernel math arrays sequences ;
: ackermann ( m n -- r )
over zero? [
1+ nip
] [
over 1 = [
2 + nip
] [
over 2 = [
1 shift 3 + nip
] [
over 3 = [
3 + 1 swap shift 3 - nip
] [
1+ swap 1- <array> 1 [ swap ackermann ] reduce
] if
] if
] if
] if
;