n
если, конечно, в манямирке борщелиспов догнивать, то в этом может быть и есть смысл
Size: a a a
2020 October 05
AP
чем sexp лучше-то?
Читаемостью же
a
чем sexp лучше-то?
Секспы менее многословны, чем json, например, и старше.
n
Читаемостью же
(let ((user '(("name" . "Василий")
("surname" . "Митрофанович")
("lastname" . "Кочерга-Крестовоздвиженский")
("backpack" . (("small-compartment" . "Топор")
("big-compartment" . "Голова жены"))))))
(print ...))n
теперь напиши пожалуйста код, который достанет значение "big-compartment"
n
Секспы менее многословны, чем json, например, и старше.
и никому нахой не нужны
n
toml еще менее многословен, чем sexp
n
name = "Василий"
surname = "Митрофанович"
lastname = "Кочерга-Крестовоздвиженский"
[backpack]
small-compartment = "Топор"
big-compartment = "Голова жены"
AP
(let ((user '(("name" . "Василий")
("surname" . "Митрофанович")
("lastname" . "Кочерга-Крестовоздвиженский")
("backpack" . (("small-compartment" . "Топор")
("big-compartment" . "Голова жены"))))))
(print ...))(cdadddr user)
n
name = "Василий"
surname = "Митрофанович"
lastname = "Кочерга-Крестовоздвиженский"
[backpack]
small-compartment = "Топор"
big-compartment = "Голова жены"
портрет перетербуржца, кстати
n
(cdadddr user)
n
пробуй тщательнее
AP
пробуй тщательнее
Да че там пробовать. У меня макрос где-то завалялся на случай хешей, будет так: (extract-alist "backpack" "big-compartment")
DL
Да че там пробовать. У меня макрос где-то завалялся на случай хешей, будет так: (extract-alist "backpack" "big-compartment")
Кложуристы смеются
(
Кложуристы смеются
(let [user {:name "Vasiliy"
:surname "Mitrofanovich"
:lastname "Kocherga-Krestovozdvizhenskiy"
:backpack {:small-compartment "Axe"
:big-compartment "Wife's head"}}]
(get-in user [:backpack :big-compartment]))
> "Wife's head"
смеёмсяDL
(let [user {:name "Vasiliy"
:surname "Mitrofanovich"
:lastname "Kocherga-Krestovozdvizhenskiy"
:backpack {:small-compartment "Axe"
:big-compartment "Wife's head"}}]
(get-in user [:backpack :big-compartment]))
> "Wife's head"
смеёмсяИ это они ещё не пытались деструктурировать на более сложных структурах
AP
(define-syntax <-
(syntax-rules ()
[(<- hs a) (hash-refs hs a)]
[(<- hs a b) (hash-refs (hash-ref hs a) b)]
[(<- hs a b c ...) (<- (hash-refs (hash-ref hs a) b) c ...)]))
(syntax-rules ()
[(<- hs a) (hash-refs hs a)]
[(<- hs a b) (hash-refs (hash-ref hs a) b)]
[(<- hs a b c ...) (<- (hash-refs (hash-ref hs a) b) c ...)]))
AP
Решает. Теперь схемеры смеются +)
a
теперь напиши пожалуйста код, который достанет значение "big-compartment"
Miss.
Уж кто-кто, а юзеры секспов пишут обработчики произвольных DSL-ей чаще и охотнее кого угодно.
Уж кто-кто, а юзеры секспов пишут обработчики произвольных DSL-ей чаще и охотнее кого угодно.
(
И это они ещё не пытались деструктурировать на более сложных структурах
на то есть https://github.com/redplanetlabs/specter , но у хаскеллеров, думаю, лучше получиться
