added fact.bf

tausifshahbaz · Oct 4, 2018 · 6424261 · 6424261
1 parent 0e7f016
commit 6424261
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/math/factorial/brainfuck/fact.bf b/math/factorial/brainfuck/fact.bf
@@ -0,0 +1,14 @@
+read n (leave some free space to stop the final loop)
+>>,>++++++++[-<------>]
+generate all integers from n to 0 separated by 0
+<[[->+>+<<]>[-<+>]>-]
+set result to 1 and move to integer '1'
+<+<
+While current integer is not null
+[
+  multiply result by current integer
+  [->[->+>+<<]>[-<+>]<<]
+  store result at its new location (and reset temporary cells)
+  >>>[-<<<<+>>>>]<<[-]<
+  go to previous integer in the stack
+<<]