fork download 
  1. : SHIFT-Q-EFFICIENTE ( -- )
  2.   \ Inizia da 2, va fino a (escluso) 10, con passo 2.
  3.   10 2 DO
  4.     I SPACES     \ I รจ l'indice del loop (2, 4, 6, 8)
  5.     ." Q" CR
  6.   2 +LOOP ;
  7.  
  8. SHIFT-Q-EFFICIENTE
  9.  
Success #stdin #stdout 0.01s 5284KB
comments (?)
stdin 
Standard input is empty
stdout 
  Q
    Q
      Q
        Q
https://ideone.com/0UZbAO
language:
Forth (gforth 0.7.3)
created:
13 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!