Data commit

Task/Fractran/Haskell/fractran-1.hs

@@ -0,0 +1,8 @@
+import Data.List (find)
+import Data.Ratio (Ratio, (%), denominator)
+
+fractran :: (Integral a) => [Ratio a] -> a -> [a]
+fractran fracts n = n :
+  case find (\f -> n `mod` denominator f == 0) fracts of
+    Nothing -> []
+    Just f -> fractran fracts $ truncate (fromIntegral n * f)

Task/Fractran/Haskell/fractran-2.hs

@@ -0,0 +1 @@
+import Data.List.Split (splitOn)

Task/Fractran/Haskell/fractran-3.hs

@@ -0,0 +1,3 @@
+readProgram :: String -> [Ratio Int]
+readProgram = map (toFrac . splitOn "/") . splitOn ","
+  where toFrac [n,d] = read n % read d

Task/Fractran/Haskell/fractran-4.hs

@@ -0,0 +1,2 @@
+import Data.Maybe (mapMaybe)
+import Data.List (elemIndex)

Task/Fractran/Haskell/fractran-5.hs

@@ -0,0 +1,20 @@
+primes :: [Int]
+primes = mapMaybe log2 $ fractran prog 2
+  where
+    prog =
+      [ 17 % 91
+      , 78 % 85
+      , 19 % 51
+      , 23 % 38
+      , 29 % 33
+      , 77 % 29
+      , 95 % 23
+      , 77 % 19
+      , 1 % 17
+      , 11 % 13
+      , 13 % 11
+      , 15 % 14
+      , 15 % 2
+      , 55 % 1
+      ]
+    log2 = fmap succ . elemIndex 2 . takeWhile even . iterate (`div` 2)