fork download
copy 
  1. \ Definisce una parola che stampa una singola sillaba e va a capo
  2. : STAMPA-TUT CR ." Tut" ;
  3. : STAMPA-TE CR ." te" ;
  4. : STAMPA-LE CR ." le" ;
  5. : STAMPA-VOL CR ." vol" ;
  6. : STAMPA-CHE CR ." che" ;
  7. : STAMPA-CER CR ." cer" ;
  8. : STAMPA-CA CR ." ca" ;
  9. : STAMPA-VA CR ." va" ;
  10. : STAMPA-DI CR ." di" ;
  11. : STAMPA-RAG CR ." rag" ;
  12. : STAMPA-GIUN CR ." giun" ;
  13. : STAMPA-GE CR ." ge" ;
  14. : STAMPA-RE CR ." re" ;
  15. : STAMPA-POR CR ." por" ;
  16. : STAMPA-PTE CR ." te" ;
  17.  
  18.  
  19. \ --- La Funzione Principale (Assemblaggio) ---
  20. : STAMPA-VERSO-FINALE ( -- )
  21.   \ Tutte le volte
  22.   STAMPA-TUT 
  23.   STAMPA-TE 
  24.   STAMPA-LE 
  25.   STAMPA-VOL 
  26.   STAMPA-TE 
  27.  
  28.   \ che cercava
  29.   STAMPA-CHE 
  30.   STAMPA-CER 
  31.   STAMPA-CA 
  32.   STAMPA-VA 
  33.  
  34.   \ di raggiungere
  35.   STAMPA-DI 
  36.   STAMPA-RAG 
  37.   STAMPA-GIUN 
  38.   STAMPA-GE 
  39.   STAMPA-RE 
  40.  
  41.   \ le porte
  42.   STAMPA-LE \ Riutilizzo di 'le'
  43.   STAMPA-POR 
  44.   STAMPA-PTE 
  45. ;
  46.  
  47. STAMPA-VERSO-FINALE
  48.  
  49.  
Success #stdin #stdout 0.01s 5320KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Tut
te
le
vol
te
che
cer
ca
va
di
rag
giun
ge
re
le
por
te
https://ideone.com/TIwShr
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!