fork download
copy 
  1. \ --- DEFINIZIONI DELLE SINGOLE SILLABE (Senza Ritorno a Capo) ---
  2.  
  3. : STAMPA-TUT ." Tut" ;
  4. : STAMPA-TE ." te" ;
  5. : STAMPA-LE ." le" ;
  6. : STAMPA-VOL ." vol" ;
  7. \ STAMPA-TE è definita sopra (riutilizzata)
  8. : STAMPA-CHE ." che" ;
  9. : STAMPA-CER ." cer" ;
  10. : STAMPA-CA ." ca" ;
  11. : STAMPA-VA ." va" ;
  12. : STAMPA-DI ." di" ;
  13. : STAMPA-RAG ." rag" ;
  14. : STAMPA-GIUN ." giun" ;
  15. : STAMPA-GE ." ge" ;
  16. : STAMPA-RE ." re" ;
  17. : STAMPA-POR ." por" ;
  18. : STAMPA-PTE ." te" ;
  19.  
  20. \ --- DEFINIZIONE DELLA FUNZIONE DI ASSEMBLAGGIO ---
  21.  
  22. : STAMPA-VERSO-SU-RIGA ( -- )
  23.   CR 
  24.  
  25.   \ Tutte
  26.   STAMPA-TUT 
  27.   STAMPA-TE 
  28.   SPACE \ <--- Spazio tra "Tutte" e "le"
  29.  
  30.   \ le
  31.   STAMPA-LE 
  32.   SPACE \ <--- Spazio tra "le" e "volte"
  33.  
  34.   \ volte
  35.   STAMPA-VOL 
  36.   STAMPA-TE 
  37.   SPACE \ <--- Spazio tra "volte" e "che"
  38.  
  39.   \ che cercava
  40.   STAMPA-CHE 
  41.   SPACE \ <--- Spazio tra "che" e "cercava"
  42.   STAMPA-CER 
  43.   STAMPA-CA 
  44.   STAMPA-VA 
  45.   SPACE \ <--- Spazio tra "cercava" e "di"
  46.  
  47.   \ di raggiungere
  48.   STAMPA-DI 
  49.   SPACE \ <--- Spazio tra "di" e "raggiungere"
  50.   STAMPA-RAG 
  51.   STAMPA-GIUN 
  52.   STAMPA-GE 
  53.   STAMPA-RE 
  54.   SPACE \ <--- Spazio tra "raggiungere" e "le"
  55.  
  56.   \ le porte
  57.   STAMPA-LE 
  58.   SPACE \ <--- Spazio tra "le" e "porte"
  59.   STAMPA-POR 
  60.   STAMPA-PTE 
  61.  
  62.   CR 
  63. ;
  64.  
  65. \ --- ESECUZIONE ---
  66. STAMPA-VERSO-SU-RIGA
  67.  
Success #stdin #stdout 0.01s 5324KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Tutte le volte che cercava di raggiungere le porte
https://ideone.com/Fzo0pe
language:
Forth (gforth 0.7.3)
created:
2 days 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!