RosettaCodeData/Task/Fractran/Haskell/fractran-3.hs

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