4 ms·

fair. not quite so pretty now... perl -E 'for(@ARGV){say,unlink for<$_/whatever>;push@ARGV,($_)x(-d^-l)for<$_/>}' .

by a_gopher 10y ago

fair. not quite so pretty now... perl -E 'for(@ARGV){say,unlink for<$_/whatever*>;push@ARGV,($_)x(-d^-l)for<$_/*>}' .