[alan] Fix and strengthen fibonacci

kostis · Aug 30, 2024 · 1b1e2d5 · 1b1e2d5
1 parent f1120e0
commit 1b1e2d5
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 5 deletions.
diff --git a/alan/programs/fibonacci.alan b/alan/programs/fibonacci.alan
@@ -12,11 +12,12 @@ main(): proc
         else
             return fibonacci(n - 1) + fibonacci(n - 2);
     }
+    n: int;
     result: int;
 {
-    writeString("Enter a number: ");
-    result = fibonacci(readInteger());
-    writeString("Fibonacci: ");
+    n = readInteger();
+    result = fibonacci(n);
+    writeString("Fibonacci of "); writeInteger(n); writeString(" is ");
     writeInteger(result);
     writeString("\n");
 }
diff --git a/alan/programs/fibonacci.input b/alan/programs/fibonacci.input
@@ -1 +1 @@
-12
+42
diff --git a/alan/programs/fibonacci.result b/alan/programs/fibonacci.result
@@ -1 +1 @@
-Enter a number: Fibonacci: 6765
+Fibonacci of 42 is 267914296
Original file line number	Diff line number	Diff line change
		@@ -1 +1 @@
		Enter a number: Fibonacci: 6765
		Fibonacci of 42 is 267914296