Data commit
This commit is contained in:
parent
7387c8f97b
commit
cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
18
Task/Fibonacci-sequence/Nemerle/fibonacci-sequence-1.nemerle
Normal file
18
Task/Fibonacci-sequence/Nemerle/fibonacci-sequence-1.nemerle
Normal file
|
|
@ -0,0 +1,18 @@
|
|||
using System;
|
||||
using System.Console;
|
||||
|
||||
module Fibonacci
|
||||
{
|
||||
Fibonacci(x : long) : long
|
||||
{
|
||||
|x when x < 2 => x
|
||||
|_ => Fibonacci(x - 1) + Fibonacci(x - 2)
|
||||
}
|
||||
|
||||
Main() : void
|
||||
{
|
||||
def num = Int64.Parse(ReadLine());
|
||||
foreach (n in $[0 .. num])
|
||||
WriteLine("{0}: {1}", n, Fibonacci(n));
|
||||
}
|
||||
}
|
||||
13
Task/Fibonacci-sequence/Nemerle/fibonacci-sequence-2.nemerle
Normal file
13
Task/Fibonacci-sequence/Nemerle/fibonacci-sequence-2.nemerle
Normal file
|
|
@ -0,0 +1,13 @@
|
|||
Fibonacci(x : long, current : long, next : long) : long
|
||||
{
|
||||
match(x)
|
||||
{
|
||||
|0 => current
|
||||
|_ => Fibonacci(x - 1, next, current + next)
|
||||
}
|
||||
}
|
||||
|
||||
Fibonacci(x : long) : long
|
||||
{
|
||||
Fibonacci(x, 0, 1)
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue