Ideone.com

fork download

copy

: max  s" 2dup < if swap then drop" evaluate ; immediate compile-only
 
: 3max max max ;
 
cr see 3max

Success #stdin #stdout #stderr 0s 22520KB

stdin

copy

Standard input is empty

stdout

copy


: 3max  
  2dup < 
  IF     swap 
  THEN 
  drop 2dup < 
  IF     swap 
  THEN 
  drop ;

stderr

copy

redefined max

https://ideone.com/sWMefh

language:

Forth (gforth 0.7.3)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

Widget for compiling and running the source code in a web browser!