ディレクトリのリストを出力する。ファイル内容を出力する時と同じ要領で作ることができた。
|
1 2 3 4 5 6 7 8 9 |
import System.Directory import System.IO main::IO() main = do dirs < - getDirectoryContents "." case dirs of [] -> putStrLn "" _ -> mapM_ (\x -> putStrLn x) [ndirs | ndirs < - dirs, ndirs /= ".", ndirs /= ".."] |
- dirsから”.”と”..”を除いたリストに対しmapM_でputStarLnをマップしている