今のところこれぐらいしかわからない。 javascriptでいうところの substr(-4)に該当するtakeがあればいいのだが。 Prelude> map (\x->reverse$take 4$reverse("0000"++(show x))) [8..12] ["0008","0009","0010","0011","0012"] 追記：平成19年07月03日 prin…