fork download 
  1. USING: kernel math sequences strings io combinators ascii ;
  2. IN: rot13
  3. : rot13-demo ( -- )
  4.     "Please enter a string:" print flush
  5.     readln [
  6.         "Your string: " write dup print
  7.     ] when* ;
  8.  
  9. MAIN: rot13-demo
  10. rot13-demo
  11.  
Runtime error #stdin #stdout 0.18s 162368KB
comments (?)
stdin 
Hello World!
stdout 
The word rot13-demo cannot be executed because it failed to compile

The input quotations to “if” don't match their expected effects
Input     Expected         Got
[ call ]  (( ..a -- ..b )) (( -- x ))
[ 2drop ] (( ..a -- ..b )) (( -- ))
https://ideone.com/eSvHQ
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!