Хламидомонада / Говнокод #28602 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
  12. 12
  13. 13
  14. 14
  15. 15
  16. 16
  17. 17
  18. 18
  19. 19
  20. 20
  21. 21
  22. 22
  23. 23
  24. 24
(define A (list 1 2 3 4 5 6))

(define (filter number first-number)
  (cond ((= (modulo first-number 2) 0)
         (cond ((= (modulo number 2) 0) (list number))
               (else '())))
        (else (cond ((not (= (modulo number 2) 0)) (list number))
               (else '())))))

(define (same-parity-impl L n)
  (let ((C (cdr L)))
    (cond ((null? C)
           (filter (car L) n))
          (else
           (append
            (filter (car L) n)
            (same-parity-impl C n))))))


(define result (same-parity-impl A (car A)))

(newline)
(display result)
(newline)

Смотрите, что я сделал!

Запостил: JloJle4Ka JloJle4Ka, (Updated )

Комментарии (5) RSS

  • ava ScriptJobs # Ссылка на оригинал 0

    Предикат проверки на четность не завезли (а-ля odd? / even? в Racket)
    Ответить

  • ava JloJle4Ka # Ссылка на оригинал 0

    Здравствуйте, это канал об #аниме? :3

    Что означает вот этот код?

    '((*default* . ,(lambda args args)))

    Насколько я понимаю, это лист, в котором лежит пара. Эта пара – не лист, да? И точка там нужна, чтобы сделать пару, которая состоит из двух элементов, но не заканчивается на nil.

    А зачем тогда там нужна запятая? Чтобы её "выполнить"? И почему в лямбде нет скобочек вокруг args?
    Ответить

Добавить комментарий

Где здесь C++, guest?!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓