A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Fibonacci-sequence/Smalltalk/fibonacci-sequence.st
+++ b/Task/Fibonacci-sequence/Smalltalk/fibonacci-sequence.st
@ -0,0 +1,20 @@
+|fibo|
+fibo := [ :i |
+   |ac t|
+   ac := Array new: 2.
+   ac at: 1 put: 0 ; at: 2 put: 1.
+   ( i < 2 )
+     ifTrue: [ ac at: (i+1) ]
+     ifFalse: [
+        2 to: i do: [ :l |
+          t := (ac at: 2).
+          ac at: 2 put: ( (ac at: 1) + (ac at: 2) ).
+          ac at: 1 put: t
+        ].
+        ac at: 2.
+     ]
+].
+
+0 to: 10 do: [ :i |
+  (fibo value: i) displayNl
+]