Rep-string: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,109: / Line 1,109: @@
 Or, alternatively:
 <lang haskell>import Data.List (inits, intercalate, transpose)
+import Control.Applicative (liftA2)
+import Data.Bool (bool)
--- REP-CYCLES -----------------------------------------------------------------
+-- REP-CYCLES ---------------------------------------------
 repCycles :: String -> [String]
 repCycles cs =
@@ Line 1,116: / Line 1,118: @@
   in filter ((cs ==) . take n . cycle) (tail $ inits (take (quot n 2) cs))
+-- TEST ---------------------------------------------------
-cycleReport :: String -> [String]
-cycleReport xs =
-  let reps = repCycles xs
-  in [ xs
-     , if not (null reps)
-         then last reps
-         else "(n/a)"
-     ]
--- TEST -----------------------------------------------------------------------
 main :: IO ()
-main = do
+main =
-  putStrLn "Longest cycles:\n"
   putStrLn $
+  fTable
-    unlines $
-    table "  -> " $
+    "Longest cycles:\n"
-    cycleReport <$>
+    id
+    ((flip bool "n/a" . last) <*> null)
+    repCycles
     [ "1001110011"
     , "1110111011"
@@ Line 1,146: / Line 1,140: @@
     ]
--- GENERIC --------------------------------------------------------------------
+-- GENERIC ------------------------------------------------
-table :: String -> [[String]] -> [String]
+fTable :: String -> (a -> String) -> (b -> String) -> (a -> b) -> [a] -> String
+fTable s xShow fxShow f xs =
-table delim rows =
+  let w = maximum (length . xShow <$> xs)
-  intercalate delim <$>
+      rjust n c = liftA2 drop length (replicate n c ++)
-  transpose
+  in unlines $
-    ((\col ->
+     s : fmap (((++) . rjust w ' ' . xShow) <*> ((" -> " ++) . fxShow . f)) xs</lang>
-         let width = (length $ maximum col)
-             justifyLeft n c s = take n (s ++ replicate n c)
-         in justifyLeft width ' ' <$> col) <$>
-     transpose rows)</lang>
 {{Out}}
 <pre>Longest cycles:
-1001110011  -> 10011
+1001110011 -> 10011
-1110111011  -> 1110
+1110111011 -> 1110
-0010010010  -> 001
+0010010010 -> 001
-1010101010  -> 1010
+1010101010 -> 1010
-1111111111  -> 11111
+1111111111 -> 11111
-0100101101  -> (n/a)
+0100101101 -> n/a
-0100100     -> 010
+   0100100 -> 010
--> (n/a)
+-> n/a
 -> 1
 -> 0
--> (n/a)</pre>
+-> n/a</pre>
 =={{header|Icon}} and {{header|Unicon}}==