DL
Anton Karpov
Ох, хороша пятница
и это ещё не вечер
В выражении (3 + 4)
Если 3 -функция, то + - аргумент?
А какого он типа? Статическая типизация спасёт мир!
Size: a a a
2019 August 09
(
в кложе число это может быть int, BigInteger или double
(
DF
Есть чай такой
DF
DL
В выражении (3 + 4)
Если 3 -функция, то + - аргумент?
А какого он типа? Статическая типизация спасёт мир!
Если 3 -функция, то + - аргумент?
А какого он типа? Статическая типизация спасёт мир!
в смысле какого типа? функционального, список A в A
(
(type 3)
=> java.lang.Long
(type 9087098712098371209387123)
=> clojure.lang.BigInt
(type 0.0)
=> java.lang.Double
(
это в кложе которая работает на жабе - про скрипт не знаю
DF
по пеановской аритметике - число это функция, но в конвенциональной алгебре число таковим не являеться
А какая сигнатура у этой функции? Какие аргументы?
(
А какая сигнатура у этой функции? Какие аргументы?
Это не из кложи, я просто подумал что вопрос был генеральным. https://en.wikipedia.org/wiki/Peano_axioms
DF
(type 3)
=> java.lang.Long
(type 9087098712098371209387123)
=> clojure.lang.BigInt
(type 0.0)
=> java.lang.Double
У меня repl’а нет под рукой (стыдно).
Что repl скажет на это?:
Что repl скажет на это?:
((apply 1 +) 2)(
java.lang.Long cannot be cast to clojure.lang.IFn(
ClassCastException
DF
Это не из кложи, я просто подумал что вопрос был генеральным. https://en.wikipedia.org/wiki/Peano_axioms
Кажется эта либа давно не поддерживается: XIX век.
A
Кажется эта либа давно не поддерживается: XIX век.
Надо напильником доработать
(def ZERO (fn [f x] x))
(def INC (fn [n] (fn [f x] (f (n f x)))))
(def PLUS (fn [n m ] (fn [f x] (n f (m f x)))))
(def ONE (INC ZERO))
(def TWO (INC ONE))
((PLUS ONE TWO) inc 0) ; => 3
2019 August 10
DG
Ребят, написал сортировку выбором и хочу узнать ваше мнение о моем коде:
(defn find-smallest [list]Пытался сделать саму реализацию наиболее прозрачной и читабельной
(let [length (count list)]
(loop [smallest (list 0)
smallest-index 0
index 0]
(if (< index length)
(let [value (list index)]
(if (< value smallest)
(recur value index (inc index))
(recur smallest smallest-index (inc index))))
smallest-index))))
(defn drop-nth [list n]
(vec (concat (subvec list 0 n) (subvec list (inc n)))))
(defn selection-sort [list]
(loop [sorted []
indexes list]
(if (not-empty indexes)
(let [smallest-index (find-smallest indexes)
smallest (indexes smallest-index)]
(recur (conj sorted smallest) (drop-nth indexes smallest-index)))
sorted)))
(def my-list [5 3 6 2 10])
(println (selection-sort my-list))
VL
Может быть на gist скинуть
DL
По индексу - дурной тон, деструктурируй
2019 August 11
DG
Спасибо за замечание, только до сих пор не догнал, как возможно при помощи деструктуризации* достичь сортировки. Если можно, подскажите, пожалуйста.