2016 Update

2016-12-05 22:15:40 +01:00 · 2016-12-05 22:15:40 +01:00 · dcf5d15da3
commit dcf5d15da3
parent 948b86eafa
7965 changed files with 139854 additions and 31002 deletions
--- a/Task/Factorial/AppleScript/factorial-2.applescript
+++ b/Task/Factorial/AppleScript/factorial-2.applescript
@ -1,5 +1,10 @@
+-- factorial :: Int -> Int
 on factorial(x)
-	if x < 0 then return 0
-	if x > 1 then return x * (my factorial(x - 1))
-	return 1
+    if x > 1 then
+        x * (factorial(x - 1))
+    else if x = 1 then
+        1
+    else
+        0
+    end if
 end factorial