=()= / Говнокод #28535 Ссылка на оригинал

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
  25. 25
  26. 26
  27. 27
  28. 28
  29. 29
  30. 30
  31. 31
  32. 32
#!/usr/bin/guile -s
!#

(define (square x)
  (* x x))

(define (square_sum x y)
  (+ (square x) (square y)))

(define (tmax x y z)
  (cond ((and (>= x y) (>= x z)) x)
        ((and (>= y x) (>= y z)) y)
        (else z)))

(define (tms x y z)
  ((cond ((= (tmax x y z) x)
          (if (> y z)
              (square_sum x y)
              (square_sum x z)))
         ((= (tmax x y z) y)
          (if (> x z)
              (square_sum x y)
              (square_sum y z)))
         ((= (tmax x y z) z)
          (if (> x y)
              (square_sum x z)
              (square_sum y z)))
         (else 0))))

(display "Ans: ")
(display (tms 6 5 4))
(newline)

Почему не работает?

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

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

  • Подозреваю, что точное сравнение для плавающего питуха иногда не срабатывает.

    Т. е. (= (tmax x y z) x) может выдавать ложноотрицательный результат.
    Ответить
  • из за синтаксической ошибки на второй строке
    Ответить
    • Тут есть разделы для ненужного говна вроде «Haskell» и «Swift», а для классики вроде «Лиспа» разделов нету.
      Ответить
        • Потому что говнокодеры пишут на PHP в основном, иногда на джаваскрипте, но никак не на лиспе
          Ответить
  • Почему просто не отсортировать входной список и не позвать square_sum с двумя наибольшими?
    Ответить
  • Лолечка проходит SICP, причем гетеросексуальную версию, на лиспе (сейчас копрофаги переписали на какую-то перхоть, чуть ли не на джаваскрипт)
    это похвально!!

    Чувствуешь, как твой код реально представляет собой AST? Ощущаешь ли гомоиконность?
    Ответить
    • > Чувствуешь, как твой код реально представляет собой AST?

      Нет.

      > Ощущаешь ли гомоиконность?

      Нет.

      Зато ощущаю себя охуенным, т.к. написал функцию для подсчёта кубического корня.
      Ответить
    • в параллельной реальности лол-ечка проходит "как же называется эта книга" и течёт
      Ответить
  • да ты на ебло его глянь. и этот чурка ещё удивляется, что ничего не работает.
    Ответить
  • Фу, какой вербозный ИМПЕРативный недоязычок

    То ли дело:
    square =. *:
    square_sum =. +/@:square@,
    max =. >./
    tms =. max@{.~&2 square_sum max@{.~&_2
    echo tms 6 5 4
    Ответить
      • Сорян, тупанул, работает только для отсортированных пораметроу.

        Исправил:
        square =. *:
        square_sum =. +/@:square@,
        max =. >./
        scnd_max =. ] max@:* max ~: ]
        tms =. max square_sum scnd_max
        echo tms 6 5 4
        Ответить
            • Я это не собирался отправлять, это моё девушко уведела что я с кем-то переписываюсь и долбануло меня лицом по клаве.
              Ответить
              • откуда у тебя девушка, ты же программист
                Ответить
                • Я сам не понимаю, наверное я долго не мылся и вот, завелась
                  Ответить
                  • Она нарисованная или это тюльпа?
                    Ответить
                • Да, судя по тому, что она просит называть её то зайкой, то киской, у них диссоциативное расстройство личности
                  Ответить
      • Я лиспер не настоящий, но вроде вызов функции это когда её имя в списке первой идёт, а тут просто список получился, его нельзя вызвать.
        Ответить
        • Ты прав. Объект и список из одного объекта — эти разные вещи. В питоне и прыщах от такого есть защита и нужно запятую лишнюю писать. Может быть в Лиспе так же?
          Ответить
          • ну я не знаю, как там жюль, но рэкет вполне выдаёт ошибку

            expected a procedure that can be applied to arguments
            Ответить
            • Жуль мне высрал что-то непонятное, пришлось ЗАНОВО переписатт код, но зато он заработал
              Ответить
          • довольно гадко, надо сказать, выглядит сиподобная игра с круглыми скобками. очень уродливо смотрится.
            Ответить
  • Всякий скриптунишка -- пиздунишка

    Скриптопиздунишки: пиздюнькают нам как прекрасно писать на скриптоговне без компиляции и стат типизации
    Они же: переписывают свое говно на раст, и оно начинает работать в 10000 раз быстрее. https://twitter.com/charliermarsh/status/1613198373594578946?s=20&t=Ah1As1oS7sEyFP8OHLUlLg

    Скриптопиздунишки пиздунишки
    Скриптопиздунишки лицемеры
    Никогда не верь скриптопиздунишкам
    Ответить
    • Скриптопиздунишка в наш в оркестр пришел
      Скриптопиздунишка нам пропаганду принес
      Про то, как хорошо есть говно без проклятой статической типизации и компиляции
      Про то, как хорошо всем,
      А лучше всех ему -- счастливому скриптопиздунишке
      Ответить
    • > Они же

      Я не уверен, что они же, а не просто подгон с царского плеча теми, кто вынужден по каким-то причинам 10% рабочего проводить с питоном. "Они же" обычно пишут на го.
      Ответить
      • Кстати, даже на го оно будет лучше. Как минимум потому, что escape analysis уже в момент компиляции почистит твой код вилкой
        Ответить
      • Судя по контрибьюторам, его вообще запилил практически в одно рыло https://github.com/charliermarsh

        Т.е. может он и питонист, но один-единственный такой питонист на все питонистическое коммьюнити
        Ответить
        • Ни питонисты ссуца от восторга от этой тулы, вон пандас на него переехало
          Ответить
    • за использование этого трека давно пора забивать стрелку всем районом за гаражами
      Ответить
      • Я смотрю видео без звука, я же не пидор
        Ответить

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

Я, guest, находясь в здравом уме и твердой памяти, торжественно заявляю:

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


    8