Mercurial > repos > tabletprog
annotate samples/iterfib.tp @ 61:a6addd8c6bd4
Fix array resizing to use newsize * sizeof(object *) rather than just newsize
| author | Mike Pavone <pavone@retrodev.com> |
|---|---|
| date | Sat, 14 Jul 2012 04:18:46 -0700 |
| parents | 55572bb15623 |
| children | 3a169ebb3224 |
| rev | line source |
|---|---|
| 46 | 1 #{ |
| 2 true <- #{ | |
| 3 if:else <- :self trueblock :elseblock { | |
| 4 trueblock: | |
| 5 } | |
| 6 } | |
| 7 | |
| 8 false <- #{ | |
| 9 if:else <- :self trueblock :elseblock { | |
| 10 elseblock: | |
| 11 } | |
| 12 } | |
| 13 | |
| 14 fib <- :n { | |
| 15 last <- 0 | |
| 16 cur <- 1 | |
| 17 counter <- 0 | |
| 18 while: { counter < n } do: { | |
| 19 counter <- counter + 1 | |
| 20 tmp <- last | |
| 21 last <- cur | |
| 22 cur <- last + tmp | |
| 23 } | |
| 24 cur | |
| 25 } | |
| 26 | |
| 27 main <- { | |
| 28 print: (string: (fib: 30)) . "\n" | |
| 29 } | |
| 30 | |
| 31 } |