File: fib2.p

package info (click to toggle)
ocaml-doc 3.09-1
  • links: PTS
  • area: non-free
  • in suites: etch, etch-m68k
  • size: 10,428 kB
  • ctags: 4,963
  • sloc: ml: 9,244; makefile: 2,413; ansic: 122; sh: 49; asm: 17
file content (12 lines) | stat: -rw-r--r-- 241 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
 
program fibonacci;
var fib: array [0 .. 100] of integer;
var n: integer;
var i: integer;
begin
  read(n);
  fib[0] := 1;
  fib[1] := 1;
  i := 2;
  while i <= n do begin fib[i] := fib[i - 1] + fib[i - 2]; i := i + 1 end;
  write(fib[n])
end