fork download
copy 
  1. : pick ( xu..x0 u -- xu..x0 xu ) 1+ cells sp@ + @ ;
  2. : bury ( xu..x1 x0 u -- x0..x1 ) 1+ cells sp@ + ! ;
  3.  
  4. cr 22 11 00 2 pick .s \ <4> 22 11 0 22
  5. cr 77 2 bury .s \ <4> 22 11 77 22
  6. cr 0 bury .s
Success #stdin #stdout #stderr 0.01s 5320KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
<4> 22 11 0 22 
<4> 22 11 77 22 
<3> 22 11 77
stderr
copy 
redefined pick
https://ideone.com/pOIdnT
language:
Forth (gforth 0.7.3)
created:
3 hours 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!