fork(1) download
  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
stdin
Standard input is empty
stdout
1 1 2 3 3 4 5 5 6 6 6 8 8 8 10