История изменений
Исправление Nervous, (текущая версия) :
это лисп, но снизу-то джава и временами получается код для форматирования мозга
Понятно, что на жабе можно писать на любом языке. Но зачем? %)
(ns file
(:require [clojure.string :as s]
[clojure.java.io :as io])
(:import (java.io File)))
(let [dir (io/file "dev")
clj? #(s/ends-with? (.getName ^File %) ".clj")]
(->> (file-seq dir)
(filter clj?)
count)) ;; => 17
Исправление Nervous, :
это лисп, но снизу-то джава и временами получается код для форматирования мозга
Понятно, что на жабе можно писать на любом языке. Но зачем? %)
(ns file
(:require [clojure.string :as s]
[clojure.java.io :as io])
(:import (java.io File)))
(let [dir (io/file "dev")
clj? #(s/ends-with? (.getName ^File %) ".clj")]
(->> (file-seq dir)
(filter clj?)
count)) ;; => 17
Исправление Nervous, :
это лисп, но снизу-то джава и временами получается код для форматирования мозга
Понятно, что на жабе можно писать на любом языке. Но зачем? %)
(ns file
(:require [clojure.string :as s]
[clojure.java.io :as io]))
(let [dir (io/file "dev")
clj? #(s/ends-with? (.getName ^File %) ".clj")]
(->> (file-seq dir)
(filter clj?)
count)) ;; => 17
Исходная версия Nervous, :
это лисп, но снизу-то джава и временами получается код для форматирования мозга
Понятно, что на жабе можно писать на любом языке. Но зачем? %)
(let [dir (io/file "dev")
clj? #(s/ends-with? (.getName ^File %) ".clj")]
(->> (file-seq dir)
(filter clj?)
count)) ;; 17