私のワーキングディレクトリは ~/work/2010/12/30/ のように日付による階層になっている． 過去1ヶ月とか過去1年のファイルを一覧したいことがあるので，階層を平たくするスクリプトをでっちあげた． module Main where import Control.Applicative import D…