Search for a command to run...
Всегда чему-то учусь!
Еще одна пропущенная лексема, использующаяся “неоднократно“ для символизации, точнее лексема и её “редуцированная аббревиатура“ “прямо в лоб“.
reverse - возвращает “обратную” копию lst.
: (reverse (1 2 3 4))
-> (4 3 2 1)
rev - меняет местами младшие биты cnt1 регистра cnt2.
(rev 'cnt1 'cnt2) -> cnt
: (bin (rev 4 (bin "0101")))
-> "1010"
: (rev 32 1)
-> 2147483648
: (hex @)
-> "80000000"
: (rev 32 (hex "E0000000"))
-> 7
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) ...