1. Куча / Говнокод #26741

    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
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    #lang racket

(require racket/syntax)

(define-syntax (_total stx)
  (syntax-case stx ()
    [(_total item price amount)
     (let ([make-id
            (lambda (template . ids)
              (let ([str (apply format template (map syntax->datum ids))])
                (datum->syntax stx (string->symbol str))))])
       (with-syntax ([total-item-price (make-id "~a-price" #'item)]
                     )
         #'(begin
             (total-item-price price amount)
             )))]
    )
  )

(define-syntax-rule (total item price amount)
  (cond [(eq? item 'apple) (_total apple price amount)]
        [(eq? item 'grape) (_total grape price amount)]
        [else (_total general price amount)]
        )
  )
  

(define (apple-price price amount)
  (* price (- amount (/ amount 2)))
  )

(define (grape-price price amount)
  (* price (if (> amount 1) (/ (* amount 4) 5) amount))
  )

(define (general-price price amount)
  (* amount price)
  )

(define apples '(apple 10 4))
(define grapes '(grape 20 3))
(define other '(peach 30 1))

(foldl (λ (lst result)
         (+ result (total (car lst) (cadr lst) (caddr lst)))
         )
       0
       (list apples grapes other)
 )

    Когда у тебя есть macroмолоток, всё остальное кажется гвоздями.

    Запостил: Desktop, 07 Июня 2020

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

    • ava Desktop 07.06.2020 19:35 # 0

      #macroperde
      Ответить

      • ava Desktop 07.06.2020 19:36 # 0

        gost, не хочешь сделать на ngk поиск по хешам? Чтобы хеши в комментариях были интерактивными и по нажатию на хеш открывался список комментариев с его упоминанием. Говнотвиттер такой себе.
        Ответить

        • ava gost 07.06.2020 19:41 # +1

          Передали в инженерный отдел. В принципе, на первый взгляд достаточно на клиенте просто расставить ссылки на https://gcode.space/#!/search?q="%23хэштег". А вот серверная оптимизация этого добра… Хм, таблица с тегами, таблица «comment_id,tag_id», при добавлении сканировать коммент на предмет тегов и добавлять кортеж (comment_id, tag_id), в поиске получать tag_id… По идее, можно и заморочиться.
          Ответить

          • ava Desktop 07.06.2020 19:42 # 0

            Да, плюс питонячьи комментарии надо как-то отличать.

            Что-то сложно выходит.
            Ответить

    • ava 3.14159265 08.06.2020 00:12 # 0

      > (car lst) (cadr lst) (caddr lst)
      > '(apple 10 4))

      Ну вот и «массив» из той задачи. Даже в лиспах выглядит изящно.
      А у джавашка «типы мосивов в ЙАЖ_VM», «питумизированные пирименные», прочий пирдолинг.
      Ответить

    • ava bormandinho 12.06.2020 19:33 # 0

      Фу, квадратные скобки
      Ответить

      • ava bormand 12.06.2020 20:23 # 0

        Да, зашквар какой-то.

        З.Ы. Интересно, они имеют какой-то особый смысл или просто все сорта скобок можно юзать?
        Ответить

        • ava nemyx 12.06.2020 20:38 # 0

          Погуглил... Один чувак на «ЛОРе» написа́л, что навелосипедил квадратные скобки в «Лиспе»:
          https://github.com/Lovesan/bike/blob/master/src/syntax.lisp

          Т. е. в «Лиспе» нужно сочинять специальный макрос, чтобы они обрабатывались.

          А вот в «Racket», оказывается, круглые и квадратные взаимозаменяемы. Два типа скобок, чтобы программа была не «write-only», т. е. чтобы программисту самому было легче отследить баланс скобок.
          Ответить

          • ava Desktop 12.06.2020 20:44 # 0

            > Lovesan
            - рэкетоненавистник, кстати
            Ответить

            • ava nemyx 12.06.2020 20:47 # +1

              С ненавистью использует квадратные скобки в «Лиспе», чтобы рэкетолюбам сделать неприятно.
              Ответить

        • ava nemyx 12.06.2020 20:41 # 0

          The use of square brackets for cond clauses is a convention. In Racket, parentheses and square brackets are actually interchangeable, as long as ( is matched with ) and [ is matched with ]. Using square brackets in a few key places makes Racket code even more readable.

          https://docs.racket-lang.org/guide/syntax-overview.html

          Т. е. для «читаемости» принято условия записывать в квадратных скобках, остальное — в круглых. Это как одинарные и двойные кавычки в жопоскрипте.
          Ответить

          • ava Desktop 12.06.2020 20:46 # +1

            Всё же не условия, а скорее элементы перечисления. Посмотри, например, на 
            let*
            Ответить

    • ava Perevedi_na_PHP 16.10.2021 20:41 # 0

      Ответить

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