- プログラミングのお題スレ Part7 [転載禁止]©2ch.net
929 ：デフォルトの名無しさん[sage]：2015/09/28(月) 01:59:41.01 ID:nBnRDQZn - >>915 Haskell
深いこと考えずに
main = putStrLn . solve =<< readLn
solve :: Int -> String
solve n = head . filter (test $ show n) . map show $ [3, 6..]
test n m = take l m == n && drop (length m - l) m == n
where
l = length n
|