Помогите пожалуйста записать на лиспе. Целой переменной s присвоить сумму цифр трехзначного целого числа k

Вариантов лиспа с 1958 года придумано столько, что твой вопрос без указания конкретной реализации не имеет смысла.

Scheme:

(define k 321)
(define s (+ (floor (/ k 100)) (floor (/ (modulo k 100) 10)) (modulo k 10)))
(write s)