# work0601.rb
# ファイルのソート
# 最終アクセス時刻でソート
# オブジェクト指向プログラミング言語はありがたいけれど。。。

filelist = Array.new
Dir::foreach(Dir::pwd){|name|
    filelist << [File::atime(name),name]
}
filelist.sort!
filelist.each{|set|
    print set[0],":",set[1],"\n"
}