diff options
Diffstat (limited to 'fibonacci.pl.c')
| -rw-r--r-- | fibonacci.pl.c | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/fibonacci.pl.c b/fibonacci.pl.c deleted file mode 100644 index 2482a41..0000000 --- a/fibonacci.pl.c +++ /dev/null @@ -1,41 +0,0 @@ -#include <stdio.h> - -#define $arg function_argument -#define my int -#define sub int -#define BEGIN int main(void) - -my $arg; - -sub hello() { - printf("Hello, welcome to Perl-C!\n"); - printf("This program is both, valid C and Perl code!\n"); - printf("It calculates all fibonacci numbers from 0 to 9!\n\n"); - return 0; -} - -sub fibonacci() { - my $n = $arg; - - if ($n < 2) { - return $n; - } - - $arg = $n - 1; - my $fib1 = fibonacci(); - $arg = $n - 2; - my $fib2 = fibonacci(); - - return $fib1 + $fib2; -} - -BEGIN { - hello(); - my $i = 0; - - while ($i <= 10) { - $arg = $i; - printf("fib(%d) = %d\n", $i, fibonacci()); - $i++; - } -} |
