1. Haskell / Говнокод #28539

    0

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    #!/usr/bin/guile -s
!#

(define (pt n s)
  (cond ((< n 1) 0)
        ((= n 1) 1)
        ((= s 0) 0)
        ((= s 1) 1)
        ((= s n) 1)
        ((> s n) 0)
        (else (+ (pt (- n 1) s) (pt (- n 1) (- s 1))))))

(display (pt 1 1)) ;; 1
(newline)

(display (pt 3 2)) ;; 2
(newline)

(display (pt 5 3)) ;; 6
(newline)

    Лисп-загадка: угадайте, что делает этот (вышеприведённый) код.

    Запостил: JloJle4Ka, 05 Января 2023

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

    • ava JloJle4Ka 05.01.2023 04:56 # 0

      Но сначала придётся угадать, на каком языке он написан, что, впрочем, не вызовет трудностей у настоящего программиса.
      Ответить

    • ava guest6 05.01.2023 05:40 # 0

      А ты принципиально хаскель от лиспа не отличаешь?
      Ответить

      • ava JloJle4Ka 05.01.2023 06:09 # 0

        Это разные названия одного и того же.
        Ответить

        • ava guest6 05.01.2023 06:14 # 0

          пиши тогдла в руби
          http://www.randomhacks.net/2005/12/03/why-ruby-is-an-acceptable-lisp/
          Ответить

          • ava HoBorogHuu_nemyx 05.01.2023 06:24 # 0

            Переведи данный код на «Руби».
            Ответить

            • ava guest6 05.01.2023 06:38 # 0 

              def pt(n, s)
  if n < 1
    0
  elsif n == 1
    1
  elsif s == 0
    0
  elsif s == 1
    1
  elsif s == n
    1
  elsif s > n
    0
  else
    pt(n - 1, s) + pt(n - 1, s - 1)
  end
end

puts pt 1, 1
puts pt 3, 2
puts pt 5, 3

              так что ли?
              Ответить

              • ava JloJle4Ka 05.01.2023 06:43 # 0

                Шебанг потерялся
                Ответить

                • ava guest6 05.01.2023 06:48 # +1

                  зачем тебе шебанг? У тебя всё равно MRI нету небось

                  Рубокоп меня тут поправил.
                  Во-первых я забыл
                  # frozen_string_literal: true

                  (строки в руби мутабельны по умолчанию, это тот еще багор)

                  во вторых на ноль рубисты проверяют так
                  elsif s.zero?

                  (вопросик по конвенции это булево проперти)
                  Ответить

                  • ava Fike 05.01.2023 10:38 # 0

                    > frozen_string_literal: true

                    там же тройка давно вышла, в которой уже по умолчанию должно быть
                    Ответить

                • ava o6AMa_4MO 05.01.2023 07:24 # 0

                  shemale gangbang
                  Ответить

                  • ava guest6 05.01.2023 16:01 # 0

                    заебали траповской пидараснёй

                    реально становлюсь трансфобом
                    Ответить

                    • ava Desktop 05.01.2023 16:05 # 0

                      а gt-фобом не становишься? или amp-фобом?
                      Ответить

                    • ava HoBorogHuu_nemyx 05.01.2023 16:30 # 0

                      А я становлюсь фолтофобом.
                      Ответить

                      • ava guest6 05.01.2023 16:35 # 0

                        Я ненавижу эксепшены кстати
                        Ответить

                        • ava HoBorogHuu_nemyx 05.01.2023 16:41 # 0

                          Это всё потому, что в няшной блока try... не было.
                          Ответить

                          • ava guest6 05.01.2023 16:43 # +1

                            да и славабогу. Мягкие правда уже насрали туда SEH

                            Мысль смешать деление на ноль и отсутствие файла -- очень плохая мысль
                            Ответить

                        • ava guest6 05.01.2023 16:44 # 0

                          Я тоже. Используй sigterm. Или собачку.
                          Ответить

          • ava JloJle4Ka 05.01.2023 06:29 # 0

            > Ruby gives you about 80% of what you want from macros

            Маловато будет
            Ответить

            • ava guest6 05.01.2023 06:42 # 0

              вы что думаете, я шучу что ли?

              https://www.amazon.com/Data-Structures-Algorithms-Ruby-Hemant/dp/B0B3F2BZ9M
              https://www.amazon.co.uk/Computer-Science-Programming-Basics-Ruby/dp/1449355978

              Как вам мысля покрыващее дерево на руби реализовывать?
              Давайте такую книжку про PHP напишем?
              Будут олимпиадники-пыхаписты, главное двойные ковычки не использовать, и ereg, чтобы не тормозило
              Ответить

              • ava o6AMa_4MO 05.01.2023 07:36 # 0

                Могу год из дания угадать не глядя. Сейчас можем написать про дrustню, про PGP поздно.
                Ответить

              • ava Fike 05.01.2023 13:03 # +1

                > Как вам мысля покрыващее дерево на руби реализовывать?

                Пошел в вики смотреть что такое. Допустим, мы построили такое дерево по точкам в двумерном пространстве и родительские узлы выстроились правильным многоугольником. Что в таком случае произойдет, если мы будем искать соседей для точки из центра такого многоугольника? Пойдет обходить всё дерево целиком?
                Ответить

                • ava guest6 05.01.2023 15:59 # 0

                  я не осилил тебя понять

                  во-первых что такое родительские узлы? Если ты про остовное дерево, то там между двумя любыми точками всегда только один путь.

                  На этой хуйне работает алгоритм Spanning Tree Радьи Перельман (он же 802.1D).

                  Между двумя устройствами в одной сети ethernet должен быть только один путь, иначе кадр или придет два раза, или размножица неимоверно (если получица петля между свитчами), и поскольку TTL у него нет -- вся сеть станет раком.

                  Но хочется же иметь избычточные каналы. Потому находится оставное дерево, а остальные (лишние) ветки отрубаются
                  Ответить

                  • ava Fike 05.01.2023 19:34 # 0

                    БЛЯДЬ я пошел искать Cover Tree, не Spanning Tree

                    https://en.wikipedia.org/wiki/Cover_tree

                    На самом деле звучит довольно прикольно для минимизации затрат на KNN, только я уж на пейпере сломался на expansion numbers
                    Ответить

    • ava HoBorogHuu_nemyx 05.01.2023 06:30 # +1

      Треугольник Паскаля?
      Ответить

    • ava guest6 05.01.2023 06:52 # +2

      Инью давай добавляй уже LISP или Schema, лолечке тесно, видишь?

      Для меня можешь ржавого тоже впихнуть
      Ответить

    • ava guest6 05.01.2023 16:32 # 0

      https://twitter.com/i/status/1610948673428652034

      и правда кое-что понятно
      Ответить

    • ava JloJle4Ka 03.02.2023 18:34 # 0

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

      И потому думаю, что я таки изучу Лисп (и в первую очередь (из-за этих (улыбающихся(скобочек)))).

      И мне на самом деле визуально приятен синтаксис Лиспа.
      Ответить

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