Search for a command to run...
Всегда чему-то учусь!
+index - абстрактный базовый класс всех индексных отношений B-Tree базы данных (префиксный класс для +relation). Иерархия классов включает +Key, +Ref, +Idx и +IdxFold.
(isa '+index Rel) # Check for an index relation
index - возвращает позицию cnt any в lst или NIL, если any не найден
(index 'any 'lst) -> cnt | NIL
: (index 'c '(a b c d e f))
-> 3
: (index '(5 6) '((1 2) (3 4) (5 6) (7 8)))
-> 3
No comments yet. Be the first to comment.
Готовил loop , даже подготовил, с одним из ИИ-ботов, комментарии к коду определения функции, и к loop1 и к loop2 … А потом решил окончательно “завязать“ с мануалом и исследованием PicoLisp. Сейчас в эпоху Github, возможностей на нем, с вики и тем же ...
Это плавный переход от eval к loop к циклам и где уместно вспомнить, что эта тема уже затрагивалась в контексте самой часто употребляемой функции for и рекурсии. Repl как функция не анонсирована в документации, но есть авторская классификация в файла...
Чтобы рядом было с циклом о кондиционалах. Надо было бы вместе с cond, но пропустил. На фоне такое разнообразия не мудрено. Но прежде, чем переходить к циклам (итерациям? рекурсии? “репитам”? … ) сначала покончим (?) с условными переходами. Хотя их е...
К трем (?!) предыдущим кондиционалам if cond case еще четыре # (when 'any . prg) -> any (de _When (Exe) (let X (cdr Exe) (if (nil? (eval (++ X))) @ (set $At @) (run X) ) ) ) https://picolisp-manual.tiddlyhost.com/...
(cond ('any1 . prg1) ('any2 . prg2) ..) -> any Если любое из условий anyN не равно NIL, выполняется prgN и возвращается результат. В противном случае (все условия равны NIL) возвращается NIL. См. также nond when and if if2 Пример : (cond ((= 3 4) ...