fork download 
  1. ! Copyright (C) 2006 Daniel Ehrenberg
  2. ! See http://f...content-available-to-author-only...e.org/license.txt for BSD license.
  3. USING: kernel math sequences strings io combinators ascii ;
  4. IN: rot13
  5. : rot13-demo ( -- )
  6.     "Please enter a string:" print flush
  7.     readln [
  8.         "Your string: " write dup print
  9.     ] when* ;
  10.  
  11. MAIN: rot13-demo
  12. rot13-demo
  13.  
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/OKDI9
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!