fork download
copy 
  1. ( http://c...content-available-to-author-only...e.com/questions/48476/programming-languages-through-the-years )
  2.  
  3. : year ." Forth was made in 1970!" ;
  4.  
  5. : printn 
  6.     dup 2 > if
  7.         dup 0 do 
  8.             ." N" dup 1- 1 do 
  9.                 I J = if ." N" 
  10.                 else space 
  11.                 then 
  12.             loop 
  13.             ." N" cr 
  14.         loop 
  15.     else 
  16.         dup 2 = if ." NN" cr ." NN" cr 
  17.         else ." N" cr 
  18.         then
  19.     then
  20.     drop ;
  21.  
  22. : gcd begin ?dup while swap over mod repeat ;
  23.  
  24. year cr cr 
  25. 5 printn cr
  26. 18 12 gcd .
Success #stdin #stdout 0s 6828KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Forth was made in 1970!

N   N
NN  N
N N N
N  NN
N   N

6
https://ideone.com/FD3Mig
Forth year, ascii N, gcd
language:
Forth (gforth 0.7.3)
created:
8 years 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!