blob: 7652a668c3f9795f2a075b87638dcc85c5b1d521 [file] [log] [blame]
`COM#!/bin/bash`END`PLN
`END`COM# Fibonacci numbers`END`PLN
`END`COM# Writes an infinite series to stdout, one entry per line`END`PLN
`END`KWDfunction`END`PLN fib`END`PUN()`END`PLN `END`PUN{`END`PLN
`END`KWDlocal`END`PLN a`END`PUN=`END`LIT1`END`PLN
`END`KWDlocal`END`PLN b`END`PUN=`END`LIT1`END`PLN
`END`KWDwhile`END`PLN `END`KWDtrue`END`PLN `END`PUN;`END`PLN `END`KWDdo`END`PLN
echo $a
`END`KWDlocal`END`PLN tmp`END`PUN=`END`PLN$a
a`END`PUN=`END`PLN$`END`PUN((`END`PLN $a `END`PUN+`END`PLN $b `END`PUN))`END`PLN
b`END`PUN=`END`PLN$tmp
`END`KWDdone`END`PLN
`END`PUN}`END`PLN
`END`COM# output the 10th element of the series and halt`END`PLN
fib `END`PUN|`END`PLN head `END`PUN-`END`LIT10`END`PLN `END`PUN|`END`PLN tail `END`PUN-`END`LIT1`END