sumim #621(2007/07/12 08:58 GMT) [ Smalltalk ] Rating1/1=1.00
Squeak Smalltalk で手続き的に。
1 2 3 4 5 6 7 8 9 10
| startDir queue | startDir := FileDirectory default. queue := OrderedCollection with: startDir. [queue notEmpty] whileTrue: [ | dir subDirs fileNames | dir := queue removeFirst. subDirs := dir directoryNames collect: [:dirName | dir directoryNamed: dirName]. queue addAll: subDirs. fileNames := dir fileNames select: [:fileName | fileName endsWith: '~']. fileNames do: [:fileName | dir deleteFileNamed: fileName]]
Rating1/1=1.00-0+
[ reply ]
sumim
#621()
[
Smalltalk
]
Rating1/1=1.00
Rating1/1=1.00-0+
[ reply ]