fork download
copy 
  1. \ http://c...content-available-to-author-only...e.com/a/85291/34718
  2.  
  3. variable S utime S !
  4. : L lshift xor ;
  5. : R S @ dup 13 L dup 17 rshift xor dup 5 L dup S ! 6 mod ;
  6. : f
  7. 33 0 DO R LOOP
  8. 1 -5 DO
  9. 33 0 DO
  10. I PICK J + 0< 1+ IF ." =" ELSE SPACE THEN
  11. LOOP CR
  12. LOOP
  13. ; f
Success #stdin #stdout 0s 6828KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
 =      =            =       =   
 = = = == = = =   == = ==    =   
==== = == = = =   ==== ==    =  =
==== = ==== ===   ========   = ==
====== ==== ===== ========== ====
=================================
https://ideone.com/CWQRAk
Illustrate Music Beats
language:
Forth (gforth 0.7.3)
created:
7 years ago
visibility:
secret

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!