summaryrefslogtreecommitdiff
path: root/fibonacci.pl.c
diff options
context:
space:
mode:
Diffstat (limited to 'fibonacci.pl.c')
-rw-r--r--fibonacci.pl.c41
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++;
- }
-}