fork download
copy 
  1. : TEST \ n –- flag
  2.   \ Leaves a true flag if n < 50 or n >100, and leaves \ a false flag otherwise. 
  3.   DUP 50 < 	\ -- n flag1 
  4.   SWAP 100 > 	\ -- flag1 flag2 
  5.   OR 
  6. ; 
  7.  
  8. : TEST 
  9.   50 101 WITHIN 0= 
  10. ;
Success #stdin #stdout #stderr 0.01s 5288KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
redefined TEST
https://ideone.com/6V33fD
language:
Forth (gforth 0.7.3)
created:
15 days 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!