fork download
copy 
  1. : squared ( n -- n^2 )
  2.    dup * ;
  3. 5 squared .
  4. 7 squared .
  5.  
  6. see squared
Success #stdin #stdout 0.01s 5288KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
25 49 
: squared  
  dup * ;
https://ideone.com/U6wXMi
language:
Forth (gforth 0.7.3)
created:
4 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!