A
я через loop некоторые из задачек advent of code решил
Size: a a a
2020 February 09
A
https://github.com/aragaer/advent-of-code/blob/master/2018/adv01.scm - да, это первая задачка 18-го года, но все-таки 1 луп на первую часть, 1 на вторую
VL
Лол луп в схемке
A
но и в остальных там много лупов
VL
Это еще хуже чем луп в cl?
A
точно такой же
VL
Я не о том)
A
а еще у меня там format
VL
Есть же лисперы которым луп не нравится, ибо не лисп
A
ну я не настоящий лиспер, просто развлекаюсь
А
Есть и под Винду
Только более старая версия
V(
везде одна и та же история, когда нужны пути. чяднт?
V(
(uiop:with-current-directory
((merge-pathnames (user-homedir-pathname) #p"siegetower"))
(uiop:getcwd))
((merge-pathnames (user-homedir-pathname) #p"siegetower"))
(uiop:getcwd))
V(
вываливает в ~/
V(
(uiop:with-current-directory
("/home/dir/siegetower/")
(uiop:getcwd))
("/home/dir/siegetower/")
(uiop:getcwd))
V(
ведет куда надо
V(
а вот с cl-fad работает:
V(
(uiop:with-current-directory
((cl-fad:merge-pathnames-as-directory
(user-homedir-pathname) #p"siegetower/"))
(uiop:getcwd))
((cl-fad:merge-pathnames-as-directory
(user-homedir-pathname) #p"siegetower/"))
(uiop:getcwd))
LL
Есть же лисперы которым луп не нравится, ибо не лисп
Самый настоящий