fork download 
  1. \ Definisce una costante per ogni interno
  2. 3 CONSTANT FRED
  3. 7 CONSTANT JIM
  4. 105 CONSTANT ANNA
  5. 220 CONSTANT MARIO
  6. 48 CONSTANT UFF-PRINCIPALE
  7.  
  8. \ Definisce una parola per stampare la lista
  9. : STAMPA-LISTA
  10.   CR ." Lista Numeri Interni:" CR
  11.   ." FRED:" SPACE FRED . CR
  12.   ." JIM:" SPACE JIM . CR
  13.   ." ANNA:" SPACE ANNA . CR
  14.   ." MARIO:" SPACE MARIO . CR
  15.   ." UFF-PRINCIPALE:" SPACE UFF-PRINCIPALE . CR
  16. ;
  17.  
  18. \ Esecuzione:
  19. STAMPA-LISTA
  20.  
Success #stdin #stdout 0.01s 5316KB
comments (?)
stdin 
Standard input is empty
stdout 
Lista Numeri Interni:
FRED: 3 
JIM: 7 
ANNA: 105 
MARIO: 220 
UFF-PRINCIPALE: 48
https://ideone.com/uwjwJH
language:
Forth (gforth 0.7.3)
created:
1 day 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!