fork download
copy 
  1. : // refill drop ; immediate
  2.  
  3. 0 value a
  4.  
  5. :noname
  6.   a 0=
  7.   if
  8.     1 { a }
  9.   else
  10.     2 { a }
  11.   then
  12.   0 { a }
  13.   a . cr // undefined
  14. ; execute
  15.  
  16. :noname
  17.   a 0=
  18.   if
  19.     1. { a }
  20.   else
  21.     2 { a }
  22.   then
  23.   { a }
  24.   a . cr // 1
  25. ; execute
  26.  
Success #stdin #stdout 0s 4368KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
0 
1
https://ideone.com/8aXJwu
language:
Forth (gforth 0.7.3)
created:
7 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!