fork download
copy 
  1. USING: formatting io kernel locals math math.functions math.parser ;
  2. IN: fakt
  3.  
  4. :: fakt ( n -- n )
  5. 5 :> d
  6. 0 :> s
  7. n d >=
  8. [
  9. s n d 5 / + + :> s
  10. d 5 * :> d
  11. ]
  12. when
  13. s "%d" print
  14. ;
  15.  
  16.  
  17. readln string>number fakt
  18.  
Runtime error #stdin #stdout 1.31s 164864KB
comments (?)
stdin
copy 
24
stdout
copy 
%d
Quotation's stack effect does not match call site
quot      [ readln string>number fakt ]
call-site (( -- ))
https://ideone.com/BfPl5
language:
Factor (factor-0.93)
created:
14 years ago
visibility:
public

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!