mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 09:40:21 +00:00
10 lines
169 B
Mathematica
10 lines
169 B
Mathematica
start ; compute the Fibonacci series
|
|
set (a,b)=1
|
|
for i=1:1 do quit:term>100
|
|
. set term=a+b
|
|
. write !,term
|
|
. set a=b
|
|
. set b=term
|
|
write !,"Result= ",term,!
|
|
quit
|