R3 Teaser: The world's smallest ls

You type:

foreach file read %./ [
    printf [16 -8 " " 24 " " 6] get query file
]

You get:

CVS\                   0 13-Mar-2007/4:02:39.483  dir   
Debug\                 0 16-Mar-2007/2:42:15.31   dir   
main.dsp           12649 7-Mar-2007/0:44:39.12    file  
main.exe          249856 16-Mar-2007/2:48:53.968  file  
main.plg            6710 16-Mar-2007/2:48:33.453  file  
output.txt           404 16-Mar-2007/2:49:29.765  file  
rebol.dll         240128 16-Mar-2007/2:48:02      file  
Release\               0 16-Mar-2007/2:45:53.953  dir   
test.r              5524 10-Jan-2007/0:31:43.553  file

Magic.

PS: Did you notice the UTC? More on that later.

18 Comments