fork(2) download
copy 
  1. \ Q(n) = Q(n - Q(n-2)) + Q(n - Q(n-1))
  2.  
  3. : Q recursive
  4. 	dup 3 <
  5. 	if
  6. 		drop 1
  7. 	else
  8. 		dup 2dup 2 - Q - Q -rot 1- Q - Q +
  9. 	then ;
  10.  
  11. : f 16 1 DO 
  12. 	I Q .
  13. 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/PmnJRO
Hofstadter Q-sequence
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!