Код который не могу написать на common lisp

О как! Спасибо потом попробую.

В переводе на CL, это будет не вот это извращение с лямбдами, а вот так:

(loop :with z = (char-code #\0)
      :for c :across "123.45"
      :if (char= c #\.) :collect c
        :else
          :collect (- (char-code c) z))

Классно!

а вот такое сможешь у себя провоерить у меня NIL выскакивает

(defvar teens-alist 
  '((0 . "") (10 . "десять") (11 . "одиннадцать") (12 . "двенадцать") 
    (13 . "тринадцать") (14 . "четырнадцать") (15 . "пятьнадцать") 
    (16 . "шестнадцать") (17 . "семнадцать") (18 . "восемнадцать") (19 . "девятнадцать")))


(defun get-num (alist n)
  (if (= n 0)
      (car alist)
    (get-num (cdr alist) (- n 1))))


(format t "~a тысяч" (cdr (assoc (+ (* (get-num '(1 2) 0) 10) (get-num '(1 2) 1)) teens-alist))) ;;=> NIL

должно быть «двенадцать тысяч»

извращение с лямбдами

Осталось придумать, как спрятать скобки, и можно писать на паскале

Осталось придумать, как спрятать скобки, и можно писать на паскале

Так давно придумано: https://sourceforge.net/p/readable/wiki/Examples/

Не, всё-таки правильный современный лисп это питон

[chr if chr == '.' else ord(chr) - ord('0') for chr in "123.45"]

кроет всё что выше

такой же «правильный» как жопоскрипт

ну реально, в ту же сторону

ни макросов, ни метапрограммирования нормального, ни нормальных рантаймов

Претензия не к синтаксису обратной польской нотации, а к семантике - замена рекурсий на императивщину, лямбда-исчисления Черча на машину Тьюринга.

Зато очень часто намного понятнее и даже лаконичнее. Ну ты просто сравни на этом примере аккуратный и лаконичный код на пайтоне и ребус из скобок на лиспе.

Лаконично это вот так:

{x - "0"*~x="."} "123.45"

Сразу видно, не работал в проде с бидоном.

«Лаконичность» там заключается только названиях встроенных функций, которые необходимо делать короткими только как раз в исключительно verbose и отвратительно малоэкспрессивных языках

Что такое примитивы для работы с массивами, и почему в лиспе их нет?

Небольшой набор операций на массивах, сочетая которые можно выражать куда более сложные функции на массивах.

Смотри, к примеру, примитивы в APL.

Да, и обычные арифметические операции в APL могут действовать поэлментно, в примере выше (который на K) по сути ничего кроме арифметики и не используется.

и почему в лиспе их нет

Ну я поискал сейчас и нашёл https://github.com/Lisp-Stat/array-operations. Но это выгляит как плохой клон numpy, который в свою очередь довольно таки плох.

Я не знаю, почему за 60 лет лисп ничему не научился у APL. Но я не лиспер, так что не знаю, насколько у вас всё плохо. Два массива чисел хотя бы складываются через `+` без дополнительных библиотек?

PS: да, я ещё вспомнил, что есть https://github.com/phantomics/april

без дополнительных библиотек

А какой смысл этого требования? Всё равно что спрашивать, может ли ядро линукса без дополнительных библиотек вывести окно с кнопкой.

Два массива чисел хотя бы складываются через + без дополнительных библиотек?

В лиспе можешь переопределить себе + в своей программе во что хочешь. Без дополнительных библиотек.

Усложним задачу: преобразовать строку в последовательность чисел, заменив цифры их значениями, а любые другие символы — их кодами ASCII.

(defn string-to-ints
  "Maps digits of string `s` to themselves and other characters to their ASCII codes."
  [s]
  (let [zero-code   (int \0)
        digit       (set (range 0 10))
        char-to-int (comp #(or (digit (- % zero-code)) %) int)]
    (map char-to-int s)))

(string-to-ints "-123.45e12")
;; => (45 1 2 3 46 4 5 101 1 2)

(string-to-ints "+123.45E-12")
;; => (43 1 2 3 46 4 5 69 45 1 2)

Ты из меня тут программиста не делай. И используй общий Лисп пожалуйста, а то я прочитать не могу.