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

1
Task/Fibonacci-sequence/SkookumScript/fibonacci-sequence-1.skookum Normal file
View file

@ -0,0 +1 @@
42.fibonacci

5
Task/Fibonacci-sequence/SkookumScript/fibonacci-sequence-2.skookum Normal file
View file

@ -0,0 +1,5 @@
// Assuming code is in Integer.fibonacci() method
() Integer
[
if this < 2 [this] else [[this - 1].fibonacci + [this - 2].fibonacci]
]

5
Task/Fibonacci-sequence/SkookumScript/fibonacci-sequence-3.skookum Normal file
View file

@ -0,0 +1,5 @@
// Assuming in fibonacci(n) procedure
(Integer n) Integer
[
if n < 2 [n] else [fibonacci(n - 1) + fibonacci(n - 2)]
]

19
Task/Fibonacci-sequence/SkookumScript/fibonacci-sequence-4.skookum Normal file
View file

@ -0,0 +1,19 @@
// Assuming code is in Integer.fibonacci() method
() Integer
[
if this < 2
[this]
else
[
!prev: 1
!next: 1
2.to_pre this
[
!sum : prev + next
prev := next
next := sum
]
next
]
]

24
Task/Fibonacci-sequence/SkookumScript/fibonacci-sequence-5.skookum Normal file
View file

@ -0,0 +1,24 @@
// Bind : is faster than assignment :=
// loop is faster than to_pre (which uses a closure)
() Integer
[
if this < 2
[this]
else
[
!prev: 1
!next: 1
!sum
!count: this - 2
loop
[
if count = 0 [exit]
count--
sum : prev + next
prev : next
next : sum
]
next
]
]