introducing fortran the boring way
[polyglot.git] / fibonacci.txt
blob452342d3fa523ad4bae62482af53adb94ef59453
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; # */ );
5                                                                         #include <stdio.h>
6                                                                         #include <stdlib.h>
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                                                                         }
29                                                                         #define foo /*
30                                                                         __END__
31                                                                         *)
32                                                                         program foo;
33                                                                         var
34                                                                             i : integer;
35                                                                             n1 : integer;
36                                                                             n2 : integer;
37                                                                             n3 : integer;
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 *)