fork download 
  1. : N-SPACES-Q ( n -- )  \ Stampa 'Q' preceduta da n spazi
  2.   SPACES               \ Stampa il numero (n) di spazi dallo stack
  3.   ." Q"                 \ Stampa "Q"
  4.   CR ;                 \ Va a capo
  5.  
  6. 2 N-SPACES-Q
  7. 4 N-SPACES-Q
  8. 6 N-SPACES-Q
  9. 8 N-SPACES-Q
  10.  
  11.  
  12.  
Success #stdin #stdout 0.01s 5248KB
comments (?)
stdin 
Standard input is empty
stdout 
  Q
    Q
      Q
        Q
https://ideone.com/76eXy6
language:
Forth (gforth 0.7.3)
created:
11 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!