Clojure Задать директорию и вывести список файлов и их размеры

(setq somefile (open "C://file/name.txt"))
(file-length somefile)
(close somefile)

(defun flist (aDir)
  (let ((tmp (sysdir (strcat aDir "\*.*") &HFF)))
    (iter (for i in tmp) (prints i) (prints " ") (printsline (sysgetattr i))))) 
 
==> flist
 
(flist (sysHome))
 
graphs-06.lsp (7232 "18.11.2013 20:35:16" &H20)
Blobs.bas (109118 "20.03.2012 12:24:34" &H20)
weblisp.txt (41 "07.03.2014 18:33:24" &H20)
lst-lv.lsp (4940 "18.03.2013 19:45:02" &H20)
CompLisp.bas (14997 "20.11.2008 20:08:04" &H20)
qqqqqq.txt (1543 "04.04.2012 12:47:46" &H20)
d-test.exe (298480 "23.01.2011 13:20:30" &H20)
Files.bas (39372 "19.09.2013 11:07:14" &H20)
globaldef.bas (61 "12.03.2009 21:37:20" &H20)
globals.bas (1237 "17.07.2011 13:13:26" &H20)

(defun file-size (filespec)
  (with-open-file (f filespec :direction :input)
    (file-length f)))
;; REPL
CL-USER> (loop for f in (uiop/filesystem:directory-files "~/test/") collect (list (namestring f) (file-size f)))
(("/home/me/test/test1.txt" 6)
 ("/home/me/test/test2.txt" 13))

INSOMNIA> (time 
           (progn
             (setf s (open "/home/sun/10gb.file"))
             (format t "~A" (file-length s))
             (close s)))
10737418240
Evaluation took:
  0.000 seconds of real time
  0.001000 seconds of total run time (0.000000 user, 0.001000 system)
  100.00% CPU
  1,183,464 processor cycles
  31,584 bytes consed
  
T

BFTV> (defparameter *ldir*
        (list-directory "thumbs"))
*LDIR*
BFTV> (length *ldir*)
26420
BFTV> (time
       (loop for a in *ldir*
          summing
            (with-open-file (s a)
              (file-length s))))
Evaluation took:
  1.985 seconds of real time
  1.971701 seconds of total run time (1.448780 user, 0.522921 system)
  [ Run times consist of 0.035 seconds GC time, and 1.937 seconds non-GC time. ]
  99.35% CPU
  4,765,153,734 processor cycles
  208,934,040 bytes consed
  
226489982

(defun file_info (dir pat)
  (mapcar '(lambda (x) (cons x (vl-file-size (strcat dir x))))
      (vl-directory-files dir pat 1)
  )
)
 
(file_info "C:/HomeLisp/" "*.exe")
==> (("ARJ32.EXE" . 262573) ("clisp.exe" . 11776) ("homelispide.exe" . 500736) ("HomeLispLib.exe" . 1576960) ("PKZIP.EXE" . 42166) ("starter.exe" . 20480) ("vbUnsetup.exe" . 32768) ("wlisp.exe" . 13824))

INSOMNIA> (defparameter
              *thumbs*
            (list-directory 
             "thumbs/"))
*THUMBS*
INSOMNIA> (length *thumbs*)
26466
INSOMNIA> (time
           (loop for a in *thumbs*
              summing
                (with-open-file (s a)
                  (file-length s))))
Evaluation took:
  1.655 seconds of real time
  1.631000 seconds of total run time (1.289000 user, 0.342000 system)
  [ Run times consist of 0.088 seconds GC time, and 1.543 seconds non-GC time. ]
  98.55% CPU
  3,960,208,040 processor cycles
  315,990,336 bytes consed
  
226832166
INSOMNIA> (time
           (loop for a in *thumbs*
              summing
                (progn
                  (setf file (sb-posix:stat a))
                  (sb-posix:stat-size file))))
 
Evaluation took:
  0.237 seconds of real time
  0.237000 seconds of total run time (0.193000 user, 0.044000 system)
  100.00% CPU
  567,675,279 processor cycles
  67,654,976 bytes consed
  
226832166

(ns learn-clojure.example
  (:import [java.io File FilenameFilter]))
 
(defn file-info [^String path ^String ext]
  (let [p (File. path)
        f-ext (reify FilenameFilter (accept [this path name]
                                      (.endsWith name ext)))]
    (map list
         (.list p f-ext)
         (map #(.length %) (.listFiles p f-ext)))))
 
(in-ns 'learn-clojure.example)
;; => #<Namespace learn-clojure.example>
 
(file-info "C:/Windows" ".exe")
;; => (("bfsvc.exe" 71168) ("explorer.exe" 2871808) ("fveupdate.exe" 15360) ("HelpPane.exe" 733696) ("hh.exe" 16896) ("notepad.exe" 193536) ("py.exe" 93696) ("pyw.exe" 94208) ("regedit.exe" 427008) ("splwow64.exe" 67072) ("twunk_16.exe" 49680) ("twunk_32.exe" 31232) ("winhlp32.exe" 9728) ("write.exe" 10240))

INSOMNIA> (format t "~16R" 25)
19