langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Hofstadter-Q-sequence/Pascal/hofstadter-q-sequence.pascal
+++ b/Task/Hofstadter-Q-sequence/Pascal/hofstadter-q-sequence.pascal
@ -0,0 +1,24 @@
+Program HofstadterQSequence (output);
+
+const
+  limit = 100000;
+
+var
+  q: array [1..limit] of longint;
+  i, flips: longint;
+
+begin
+  q[1] := 1;
+  q[2] := 1;
+  for i := 3 to limit do
+    q[i] := q[i - q[i - 1]] + q[i - q[i - 2]];
+  for i := 1 to 10 do
+    write(q[i], ' ');
+  writeln;
+  writeln(q[1000]);
+  flips := 0;
+  for i := 1 to limit - 1 do
+    if q[i] > q[i+1] then
+      inc(flips);
+  writeln('Flips: ', flips);
+end.