プログラミングのお題スレ Part19

[376 デフォルトの名無しさん 2021/03/04(木) 00:29:22.56 ID:cIYJR4p9]

>>373
多少技巧的だけど見た目にはキレイ
haskell

ofoff x = case ( take 3 $ x ++ ( " " ) ) of
" " -> [ ]
"OFF" -> "OFF" : ( ofoff $ drop 3 x )
_ -> "OF" : ( ofoff $ drop 2 x )

main = print $ ofoff "OFOFOFFOFOFFOFOFF"