aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Task/Fibonacci-sequence/MontiLang/fibonacci-sequence-1.monti Normal file
View file

@ -0,0 +1,9 @@
0 VAR a .
1 VAR b .
INPUT TOINT
FOR :
a b + VAR c .
a PRINT .
b VAR a .
c VAR b .
ENDFOR

12
Task/Fibonacci-sequence/MontiLang/fibonacci-sequence-2.monti Normal file
View file

@ -0,0 +1,12 @@
def over
swap dup rot swap
enddef
|Enter a number to obtain Fibonacci sequence: | input nip var count .
0 1
FOR count
over out |, | out . + swap
ENDFOR
. print
input
clear

8
Task/Fibonacci-sequence/MontiLang/fibonacci-sequence-3.monti Normal file
View file

@ -0,0 +1,8 @@
|Enter a number to obtain Fibonacci sequence: | input nip 1 - var count .
0 1
FOR count
out |, | out . dup rot +
ENDFOR
print
input /# wait until press ENTER #/
clear /# empties the stack #/