blob: 90274acb0e935985cc5d141aa559589537966f10 (plain)

ofs	hex dump	ascii
0000	21 3c 61 72 63 68 3e 0a 61 63 6b 20 20 20 20 20 20 20 20 20 20 20 20 20 38 30 32 38 33 31 32 34	!<arch>.ack.............80283124
0020	37 20 20 20 30 20 20 20 20 20 30 20 20 20 20 20 36 36 34 20 20 20 20 20 31 35 39 20 20 20 20 20	7...0.....0.....664.....159.....
0040	20 20 60 0a 66 75 6e 63 20 61 63 6b 28 61 2c 20 62 29 20 7b 0a 09 6e 20 3d 20 6e 2b 31 0a 09 69	..`.func.ack(a,.b).{..n.=.n+1..i
0060	66 28 61 20 3d 3d 20 30 29 20 72 65 74 75 72 6e 20 28 62 2b 31 29 0a 09 69 66 28 62 20 3d 3d 20	f(a.==.0).return.(b+1)..if(b.==.
0080	30 29 20 09 20 72 65 74 75 72 6e 20 28 61 63 6b 28 61 20 2d 20 31 2c 20 31 29 29 0a 09 72 65 74	0)...return.(ack(a.-.1,.1))..ret
00a0	75 72 6e 20 28 61 63 6b 28 24 31 20 2d 20 31 2c 20 61 63 6b 28 61 2c 20 62 20 2d 20 31 29 29 29	urn.(ack($1.-.1,.ack(a,.b.-.1)))
00c0	0a 7d 0a 6e 3d 30 0a 61 63 6b 28 33 2c 33 29 0a 70 72 69 6e 74 20 6e 2c 20 22 63 61 6c 6c 73 5c	.}.n=0.ack(3,3).print.n,."calls\
00e0	6e 22 0a 00 61 63 6b 31 20 20 20 20 20 20 20 20 20 20 20 20 38 30 32 38 33 31 33 36 32 20 20 20	n"..ack1............802831362...
0100	30 20 20 20 20 20 30 20 20 20 20 20 36 36 34 20 20 20 20 20 31 39 34 20 20 20 20 20 20 20 60 0a	0.....0.....664.....194.......`.
0120	66 75 6e 63 20 61 63 6b 28 61 2c 20 62 29 20 7b 0a 09 6e 20 3d 20 6e 2b 31 0a 09 69 66 28 61 20	func.ack(a,.b).{..n.=.n+1..if(a.
0140	3d 3d 20 30 29 20 72 65 74 75 72 6e 20 28 62 2b 31 29 0a 09 69 66 28 62 20 3d 3d 20 30 29 20 09	==.0).return.(b+1)..if(b.==.0)..
0160	20 72 65 74 75 72 6e 20 28 61 63 6b 28 61 20 2d 20 31 2c 20 31 29 29 0a 09 72 65 74 75 72 6e 20	.return.(ack(a.-.1,.1))..return.
0180	28 61 63 6b 28 61 20 2d 20 31 2c 20 61 63 6b 28 61 2c 20 62 20 2d 20 31 29 29 29 0a 7d 0a 6e 3d	(ack(a.-.1,.ack(a,.b.-.1))).}.n=
01a0	30 0a 77 68 69 6c 65 20 28 72 65 61 64 28 78 29 29 20 7b 0a 09 72 65 61 64 28 79 29 0a 09 70 72	0.while.(read(x)).{..read(y)..pr
01c0	69 6e 74 20 61 63 6b 28 78 2c 79 29 2c 20 22 5c 6e 22 0a 7d 0a 70 72 69 6e 74 20 6e 2c 22 5c 6e	int.ack(x,y),."\n".}.print.n,"\n
01e0	22 0a 64 6f 75 62 6c 65 20 20 20 20 20 20 20 20 20 20 38 30 32 38 33 31 33 39 35 20 20 20 30 20	".double..........802831395...0.
0200	20 20 20 20 30 20 20 20 20 20 36 36 34 20 20 20 20 20 38 37 20 20 20 20 20 20 20 20 60 0a 70 72	....0.....664.....87........`.pr
0220	6f 63 20 64 6f 75 62 6c 65 28 29 7b 0a 7d 0a 70 72 6f 63 20 64 6f 75 62 6c 65 28 78 29 7b 0a 09	oc.double(){.}.proc.double(x){..
0240	69 66 28 78 20 3e 20 31 29 7b 0a 09 09 64 6f 75 62 6c 65 28 78 2f 32 29 0a 09 7d 0a 09 70 72 69	if(x.>.1){...double(x/2)..}..pri
0260	6e 74 28 78 29 0a 7d 0a 64 6f 75 62 6c 65 28 31 30 32 34 29 0a 00 66 61 63 20 20 20 20 20 20 20	nt(x).}.double(1024)..fac.......
0280	20 20 20 20 20 20 38 30 32 38 33 31 30 38 30 20 20 20 30 20 20 20 20 20 30 20 20 20 20 20 36 36	......802831080...0.....0.....66
02a0	34 20 20 20 20 20 36 33 20 20 20 20 20 20 20 20 60 0a 66 75 6e 63 20 66 61 63 28 61 29 20 7b 0a	4.....63........`.func.fac(a).{.
02c0	09 69 66 20 28 61 20 3c 3d 20 30 29 20 72 65 74 75 72 6e 20 31 20 65 6c 73 65 20 72 65 74 75 72	.if.(a.<=.0).return.1.else.retur
02e0	6e 20 61 20 2a 20 66 61 63 28 61 2d 31 29 0a 7d 0a 00 66 61 63 31 20 20 20 20 20 20 20 20 20 20	n.a.*.fac(a-1).}..fac1..........
0300	20 20 38 30 32 38 33 31 34 37 38 20 20 20 30 20 20 20 20 20 30 20 20 20 20 20 36 36 34 20 20 20	..802831478...0.....0.....664...
0320	20 20 38 30 20 20 20 20 20 20 20 20 60 0a 66 75 6e 63 20 66 61 63 28 61 29 20 69 66 20 28 61 20	..80........`.func.fac(a).if.(a.
0340	3c 3d 20 30 29 20 72 65 74 75 72 6e 20 31 20 65 6c 73 65 20 72 65 74 75 72 6e 20 61 20 2a 20 66	<=.0).return.1.else.return.a.*.f
0360	61 63 28 61 2d 31 29 0a 66 61 63 28 30 29 0a 66 61 63 28 37 29 0a 66 61 63 28 31 30 29 0a 66 61	ac(a-1).fac(0).fac(7).fac(10).fa
0380	63 32 20 20 20 20 20 20 20 20 20 20 20 20 38 30 32 38 33 31 35 32 34 20 20 20 30 20 20 20 20 20	c2............802831524...0.....
03a0	30 20 20 20 20 20 36 36 34 20 20 20 20 20 31 34 30 20 20 20 20 20 20 20 60 0a 66 75 6e 63 20 66	0.....664.....140.......`.func.f
03c0	61 63 28 69 29 20 7b 0a 09 69 66 20 28 69 20 3c 3d 20 30 29 20 7b 0a 09 09 72 65 74 75 72 6e 20	ac(i).{..if.(i.<=.0).{...return.
03e0	31 0a 09 7d 0a 09 72 65 74 75 72 6e 20 69 20 2a 20 66 61 63 28 69 2d 31 29 0a 7d 0a 69 3d 30 0a	1..}..return.i.*.fac(i-1).}.i=0.
0400	77 68 69 6c 65 28 69 3c 3d 32 30 29 7b 0a 09 70 72 69 6e 74 20 22 66 61 63 74 6f 72 69 61 6c 20	while(i<=20){..print."factorial.
0420	6f 66 20 22 2c 20 69 2c 20 22 69 73 20 22 2c 20 66 61 63 28 69 29 2c 20 22 5c 6e 22 0a 09 69 3d	of.",.i,."is.",.fac(i),."\n"..i=
0440	69 2b 31 0a 7d 0a 66 69 62 20 20 20 20 20 20 20 20 20 20 20 20 20 38 30 32 38 33 31 35 34 36 20	i+1.}.fib.............802831546.
0460	20 20 30 20 20 20 20 20 30 20 20 20 20 20 36 36 34 20 20 20 20 20 39 38 20 20 20 20 20 20 20 20	..0.....0.....664.....98........
0480	60 0a 70 72 6f 63 20 66 69 62 28 6e 29 20 7b 0a 09 61 20 3d 20 30 0a 09 62 20 3d 20 31 0a 09 77	`.proc.fib(n).{..a.=.0..b.=.1..w
04a0	68 69 6c 65 20 28 62 20 3c 20 6e 29 20 7b 0a 09 09 70 72 69 6e 74 20 62 0a 09 09 63 20 3d 20 62	hile.(b.<.n).{...print.b...c.=.b
04c0	0a 09 09 62 20 3d 20 61 2b 62 0a 09 09 61 20 3d 20 63 0a 09 7d 0a 09 70 72 69 6e 74 20 22 5c 6e	...b.=.a+b...a.=.c..}..print."\n
04e0	22 0a 7d 0a 66 69 62 32 20 20 20 20 20 20 20 20 20 20 20 20 38 30 32 38 32 37 37 36 32 20 20 20	".}.fib2............802827762...
0500	30 20 20 20 20 20 30 20 20 20 20 20 36 36 34 20 20 20 20 20 38 30 20 20 20 20 20 20 20 20 60 0a	0.....0.....664.....80........`.
0520	7b 0a 6e 3d 30 0a 61 3d 30 0a 62 3d 31 0a 77 68 69 6c 65 28 62 3c 31 30 30 30 30 30 30 30 29 7b	{.n=0.a=0.b=1.while(b<10000000){
0540	0a 09 6e 3d 6e 2b 31 0a 09 63 3d 62 0a 09 62 3d 61 2b 62 0a 09 61 3d 63 0a 09 70 72 69 6e 74 28	..n=n+1..c=b..b=a+b..a=c..print(
0560	62 29 0a 7d 0a 70 72 69 6e 74 28 6e 29 0a 7d 0a 66 69 62 73 75 6d 20 20 20 20 20 20 20 20 20 20	b).}.print(n).}.fibsum..........
0580	38 30 32 38 33 31 36 30 30 20 20 20 30 20 20 20 20 20 30 20 20 20 20 20 36 36 34 20 20 20 20 20	802831600...0.....0.....664.....
05a0	31 34 34 20 20 20 20 20 20 20 60 0a 70 72 6f 63 20 66 69 62 28 6e 29 7b 0a 09 61 3d 31 0a 09 62	144.......`.proc.fib(n){..a=1..b
05c0	3d 31 0a 09 63 3d 32 0a 09 64 3d 33 0a 09 73 75 6d 20 3d 20 61 2b 62 2b 63 2b 64 0a 09 77 68 69	=1..c=2..d=3..sum.=.a+b+c+d..whi
05e0	6c 65 28 64 3c 6e 29 7b 0a 09 09 65 3d 64 2b 63 0a 09 09 70 72 69 6e 74 28 65 29 0a 09 09 61 3d	le(d<n){...e=d+c...print(e)...a=
0600	62 0a 09 09 62 3d 63 0a 09 09 63 3d 64 0a 09 09 64 3d 65 0a 09 09 73 75 6d 3d 73 75 6d 2b 65 0a	b...b=c...c=d...d=e...sum=sum+e.
0620	09 7d 0a 09 70 72 69 6e 74 28 73 75 6d 29 0a 7d 0a 0a 66 69 62 28 31 30 30 30 29 0a 66 69 62 74	.}..print(sum).}..fib(1000).fibt
0640	65 73 74 20 20 20 20 20 20 20 20 20 38 30 32 38 33 31 35 38 37 20 20 20 30 20 20 20 20 20 30 20	est.........802831587...0.....0.
0660	20 20 20 20 36 36 34 20 20 20 20 20 31 32 36 20 20 20 20 20 20 20 60 0a 70 72 6f 63 20 66 69 62	....664.....126.......`.proc.fib
0680	28 6e 29 20 7b 0a 09 61 20 3d 20 30 0a 09 62 20 3d 20 31 0a 09 77 68 69 6c 65 20 28 62 20 3c 20	(n).{..a.=.0..b.=.1..while.(b.<.
06a0	6e 29 20 7b 0a 09 09 63 20 3d 20 62 0a 09 09 62 20 3d 20 61 2b 62 0a 09 09 61 20 3d 20 63 0a 09	n).{...c.=.b...b.=.a+b...a.=.c..
06c0	7d 0a 7d 0a 0a 69 20 3d 20 31 0a 77 68 69 6c 65 20 28 69 20 3c 20 31 30 30 30 29 20 7b 0a 09 66	}.}..i.=.1.while.(i.<.1000).{..f
06e0	69 62 28 31 30 30 30 29 0a 09 69 20 3d 20 69 20 2b 20 31 0a 7d 0a	ib(1000)..i.=.i.+.1.}.