fork download
copy 
  1. \ http://c...content-available-to-author-only...e.com/a/87303/34718
  2.  
  3. : f >r 1 1 r@ 0 DO 2dup + LOOP 2drop 1 r> 0 DO * LOOP ;
  4.  
  5. : p 12 1 DO
  6. I f .
  7. LOOP ; p
Success #stdin #stdout 0.01s 6828KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1 1 2 6 30 240 3120 65520 2227680 122522400 -1980408288
https://ideone.com/SozKZR
Fibonorial (Fibonacci, Factorial)
language:
Forth (gforth 0.7.3)
created:
7 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!