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

Add tasks for all the new languages

Browse source
This commit is contained in:
Tina Müller 2016-12-05 23:44:36 +01:00
parent 9dc3c2bb62
commit bba7bfd280
13208 changed files with 134745 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
]
]