fork download
copy 
  1. 5 CONSTANT MIOCOSTANTE
  2.  
  3. : SOMMA-COSTANTE
  4.   MIOCOSTANTE           \ stack: 5
  5.   1 +                   \ stack: 6
  6.   DUP .                 \ stampa 6, stack: 6
  7.  
  8.   MIOCOSTANTE           \ stack: 6 5
  9.   2 +                   \ stack: 6 7
  10.   DUP .                 \ stampa 7, stack: 6 7
  11.  
  12.   DROP                  \ stack: 6
  13.   MIOCOSTANTE           \ stack: 6 5
  14.   3 +                   \ stack: 6 8
  15.   .                     \ stampa 8
  16.   DROP                  \ pulisce lo stack
  17. ;
  18.  
  19. SOMMA-COSTANTE
  20.  
  21.  
Success #stdin #stdout 0.01s 5320KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
6 7 8
https://ideone.com/hNa761
language:
Forth (gforth 0.7.3)
created:
5 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!