repo.or.cz
/
polyglot.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
introducing fortran the boring way
[polyglot.git]
/
fibonacci.txt
blob
452342d3fa523ad4bae62482af53adb94ef59453
1
(*foo /*bar
2
/1337#) 2>/dev/null;i=0; a=1; b=1;echo $a;while test $i -lt 9;do c=$((a+b));a=$b;b=$c;echo $a;i=$((i+1));done;exit
3
) if 0; # */ );
4
5
#include <stdio.h>
6
#include <stdlib.h>
7
8
#define $ /*
9
"*/
10
main () /*"; # */
11
{
12
int $ i;
13
int $ n1;
14
int $ n2;
15
int $ n3;
16
$ i = 0;
17
$ n1 = 1;
18
$ n2 = 1;
19
printf( "%d\n", $ n1 );
20
while ( $ i < 9 ) {
21
$ n3 = $ n1 + $ n2;
22
$ n1 = $ n2;
23
$ n2 = $ n3;
24
printf( "%d\n", $ n1 );
25
$ i++;
26
}
27
}
28
29
#define foo /*
30
__END__
31
*)
32
program foo;
33
var
34
i : integer;
35
n1 : integer;
36
n2 : integer;
37
n3 : integer;
38
39
begin
40
i := 0;
41
n1 := 1;
42
n2 := 1;
43
writeln(n1);
44
while i < 9 do
45
begin
46
n3 := n1 + n2;
47
n1 := n2;
48
n2 := n3;
49
writeln(n1);
50
i := i + 1;
51
end;
52
end.
53
(*
54
integer i, n1, n2, n3
55
n1 = 1
56
n2 = 1
57
print '(I0)', n1
58
do 10 i = 1, 9
59
n3 = n1 + n2
60
n1 = n2
61
n2 = n3
62
print '(I0)', n1
63
10 continue
64
end
65
*/
66
#define bar *)