Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Hofstadter-Q-sequence/Action-/hofstadter-q-sequence.action
+++ b/Task/Hofstadter-Q-sequence/Action-/hofstadter-q-sequence.action
@ -0,0 +1,17 @@
+PROC Main()
+  DEFINE MAX="1000"
+  INT ARRAY q(MAX+1)
+  INT i
+
+  q(1)=1 q(2)=1
+  FOR i=3 TO MAX
+  DO
+    q(i)=q(i-q(i-1))+q(i-q(i-2))
+  OD
+
+  FOR i=1 TO 10
+  DO
+    PrintF("%I: %I%E",i,q(i))
+  OD
+  PrintF("%I: %I%E",MAX,q(MAX))
+RETURN