fork download
copy 
  1. \ Q(n) = Q(n - Q(n-2)) + Q(n - Q(n-1))
  2. \ 76 bytes
  3.  
  4. : Q recursive dup dup 3 < if - 1+ else 2dup 2 - Q - Q -rot 1- Q - Q + then ;
  5.  
  6.  
  7. : f 16 1 DO 
  8. 	I Q .
  9. LOOP ; f
Success #stdin #stdout 0.01s 6828KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1 1 2 3 3 4 5 5 6 6 6 8 8 8 10
https://ideone.com/b8uJSr
Hofstadter Q-sequence (golfed)
language:
Forth (gforth 0.7.3)
created:
9 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!