fork download 
  1. : N-SPACES-Q ( n -- )  \ Stampa 'Q' preceduta da n spazi e va a capo
  2.   SPACES
  3.   ." Q"
  4.   CR ;
  5.  
  6. : SHIFT-Q ( -- ) \ Esegue la stampa di Q con 2, 4, 6 e 8 spazi
  7.   2 N-SPACES-Q
  8.   4 N-SPACES-Q
  9.   6 N-SPACES-Q
  10.   8 N-SPACES-Q ;
  11.  
  12. SHIFT-Q
  13.  
Success #stdin #stdout 0.01s 5276KB
comments (?)
stdin 
Standard input is empty
stdout 
  Q
    Q
      Q
        Q
https://ideone.com/Nt2lZq
language:
Forth (gforth 0.7.3)
created:
12 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!