Data update
This commit is contained in:
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,16 +0,0 @@
|
|||
function Fib (X: in Integer) return Integer is
|
||||
function Actual_Fib (N: in Integer) return Integer is
|
||||
begin
|
||||
if N < 2 then
|
||||
return N;
|
||||
else
|
||||
return Actual_Fib (N-1) + Actual_Fib (N-2);
|
||||
end if;
|
||||
end Actual_Fib;
|
||||
begin
|
||||
if X < 0 then
|
||||
raise Constraint_Error;
|
||||
else
|
||||
return Actual_Fib (X);
|
||||
end if;
|
||||
end Fib;
|
||||
|
|
@ -1,15 +0,0 @@
|
|||
ConsoleWrite(Fibonacci(10) & @CRLF) ; ## USAGE EXAMPLE
|
||||
ConsoleWrite(Fibonacci(20) & @CRLF) ; ## USAGE EXAMPLE
|
||||
ConsoleWrite(Fibonacci(30)) ; ## USAGE EXAMPLE
|
||||
|
||||
Func Fibonacci($number)
|
||||
|
||||
If $number < 0 Then Return "Invalid argument" ; No negative numbers
|
||||
|
||||
If $number < 2 Then ; If $number equals 0 or 1
|
||||
Return $number ; then return that $number
|
||||
Else ; Else $number equals 2 or more
|
||||
Return Fibonacci($number - 1) + Fibonacci($number - 2) ; FIBONACCI!
|
||||
EndIf
|
||||
|
||||
EndFunc
|
||||
|
|
@ -17,7 +17,7 @@ fib(n)
|
|||
}(n)
|
||||
}
|
||||
|
||||
public program()
|
||||
public Program()
|
||||
{
|
||||
for (int i := -1; i <= 10; i += 1)
|
||||
{
|
||||
|
|
|
|||
|
|
@ -1 +0,0 @@
|
|||
fib: func [n /f][ do f: func [m] [ either m < 2 [m][(f m - 1) + f m - 2]] n]
|
||||
Loading…
Add table
Add a link
Reference in a new issue