Data update

Task/Stern-Brocot-sequence/Ada/stern-brocot-sequence.ada

@@ -1,94 +0,0 @@
-with Ada.Text_IO, Ada.Containers.Vectors;
-
-procedure Sequence is
-
-   package Vectors is new
-     Ada.Containers.Vectors(Index_Type => Positive, Element_Type => Positive);
-   use type Vectors.Vector;
-
-   type Sequence is record
-      List: Vectors.Vector;
-      Index: Positive;
-      -- This implements some form of "lazy evaluation":
-      --  + List holds the elements computed, so far, it is extended
-      --    if the user tries to "Get" an element not yet computed;
-      --  + Index is the location of the next element under consideration
-   end record;
-
-   function Initialize return Sequence is
-      (List => (Vectors.Empty_Vector & 1 & 1), Index => 2);
-
-   function Get(Seq: in out Sequence; Location: Positive) return Positive is
-      -- returns the Location'th element of the sequence
-      -- extends Seq.List (and then increases Seq.Index) if neccessary
-      That: Positive := Seq.List.Element(Seq.Index);
-      This: Positive := That + Seq.List.Element(Seq.Index-1);
-   begin
-      while Seq.List.Last_Index < Location loop
-	 Seq.List := Seq.List & This & That;
-	 Seq.Index := Seq.Index + 1;
-      end loop;
-      return Seq.List.Element(Location);
-   end Get;
-
-   S: Sequence := Initialize;
-   J: Positive;
-
-   use Ada.Text_IO;
-
-begin
-   -- show first fifteen members
-   Put("First 15:");
-   for I in 1 .. 15 loop
-      Put(Integer'Image(Get(S, I)));
-   end loop;
-   New_Line;
-
-   -- show the index where 1, 2, 3, ... first appear in the sequence
-   for I in 1 .. 10 loop
-      J := 1;
-      while Get(S, J) /= I loop
-	 J := J + 1;
-      end loop;
-      Put("First" & Integer'Image(I) & " at" & Integer'Image(J) & ";  ");
-      if I mod 4 = 0 then
-	 New_Line; -- otherwise, the output gets a bit too ugly
-      end if;
-   end loop;
-
-   -- show the index where 100 first appears in the sequence
-   J := 1;
-   while Get(S, J) /= 100 loop
-      J := J + 1;
-   end loop;
-   Put_Line("First 100 at" & Integer'Image(J) & ".");
-
-   -- check GCDs
-   declare
-      function GCD (A, B : Integer) return Integer is
-	 M : Integer := A;
-	 N : Integer := B;
-	 T : Integer;
-      begin
-	 while N /= 0 loop
-	    T := M;
-	    M := N;
-	    N := T mod N;
-	 end loop;
-	 return M;
-      end GCD;
-
-      A, B: Positive;
-   begin
-      for I in 1 .. 999 loop
-	 A := Get(S, I);
-	 B := Get(S, I+1);
-	 if GCD(A, B) /= 1 then
-	    raise Constraint_Error;
-	 end if;
-      end loop;
-      Put_Line("Correct: The first 999 consecutive pairs are relative prime!");
-   exception
-      when Constraint_Error => Put_Line("Some GCD > 1; this is wrong!!!") ;
-   end;
-end Sequence;

Task/Stern-Brocot-sequence/PowerShell/stern-brocot-sequence.psh

@@ -1,28 +0,0 @@
-# An iterative approach
-function iter_sb($count = 2000)
-{
-    # Taken from RosettaCode GCD challenge
-    function Get-GCD ($x, $y)
-    {
-        if ($y -eq 0) { $x } else { Get-GCD $y ($x%$y) }
-    }
-
-    $answer = @(1,1)
-    $index = 1
-    while ($answer.Length -le $count)
-    {
-        $answer += $answer[$index] + $answer[$index - 1]
-        $answer += $answer[$index]
-        $index++
-    }
-
-    0..14 | foreach {$answer[$_]}
-
-    1..10 | foreach {'Index of {0}: {1}' -f $_, ($answer.IndexOf($_) + 1)}
-
-    'Index of 100: {0}' -f ($answer.IndexOf(100) + 1)
-
-    [bool] $gcd = $true
-    1..999 | foreach {$gcd = $gcd -and ((Get-GCD $answer[$_] $answer[$_ - 1]) -eq 1)}
-    'GCD = 1 for first 1000 members: {0}' -f $gcd
-}

Task/Stern-Brocot-sequence/VBScript/stern-brocot-sequence.vb

@@ -1,40 +0,0 @@
-sb = Array(1,1)
-i = 1 'considered
-j = 2 'precedent
-n = 0 'loop counter
-Do
-	ReDim Preserve sb(UBound(sb) + 1)
-	sb(UBound(sb)) = sb(UBound(sb) - i) + sb(UBound(sb) - j)
-	ReDim Preserve sb(UBound(sb) + 1)
-	sb(UBound(sb)) = sb(UBound(sb) - j)
-	i = i + 1
-	j = j + 1
-	n = n + 1
-Loop Until n = 2000
-
-WScript.Echo "First 15: " & DisplayElements(15)
-
-For k = 1 To 10
-	WScript.Echo "The first instance of " & k & " is in #" & ShowFirstInstance(k) & "."
-Next
-
-WScript.Echo "The first instance of " & 100 & " is in #" & ShowFirstInstance(100) & "."
-
-Function DisplayElements(n)
-	For i = 0 To n - 1
-		If i < n - 1 Then
-			DisplayElements = DisplayElements & sb(i) & ", "
-		Else
-			DisplayElements = DisplayElements & sb(i)
-		End If
-	Next
-End Function
-
-Function ShowFirstInstance(n)
-	For i = 0 To UBound(sb)
-		If sb(i) = n Then
-			ShowFirstInstance = i + 1
-			Exit For
-		End If
-	Next
-End Function