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

    −4

    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
    (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, 15 Февраля 2023

    Комментарии (5)
  2. Haskell / Говнокод #28596

    −1

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    (define A (list 1 2 3 4 5))
    
    (define (reverse L)
      (let ((C (cdr L)))
        (if (not (null? C))
            (cons (reverse C) (car L))
            (car L))))
    
    (newline)
    (display (reverse A))
    (newline)

    Почему у меня получается х****й лист после реверсинга? :-(

    JloJle4Ka, 10 Февраля 2023

    Комментарии (42)
  3. 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)
  4. Haskell / Говнокод #28529

    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
    ;; Sound.
    (xbindkey '(Alt F7) "amixer set Master 1%-")
    (xbindkey '(Alt F8) "amixer set Master 1%+")
    
    (define muted 0)
    (run-command "amixer set Master 3%")
    
    (xbindkey-function '(Alt F6)
                       (lambda()
                         (cond ((equal? muted 0)
                                (run-command "amixer set Master 0%")
                                (set! muted 1)
                                )
                               (else (begin
                                       (run-command "amixer set Master 3%")
                                       (set! muted 0)
                                       ))
    ;; какой багор
                               )))

    Линукс-загадка!

    JloJle4Ka, 30 Декабря 2022

    Комментарии (18)
  5. Haskell / Говнокод #27930

    −2

    1. 1
    not' = isInfinite . (1/)

    digitalEugene, 06 Января 2022

    Комментарии (1)
  6. Haskell / Говнокод #27033

    −1

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    zero :: Integer -> Bool
    zero = (==0)
    
    ieq :: Num p => Bool -> p
    ieq x = if x then 1 else 0
    
    elem' :: (Foldable t, Eq a) => t a -> a -> Bool
    elem' xs x = not $ zero func
                where 
                    func = foldl (\acc y -> acc + (ieq $ x == y)) 0 xs

    Петуху дали поиграть в Haskell.

    digitalEugene, 16 Октября 2020

    Комментарии (7)
  7. Haskell / Говнокод #26021

    0

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    module Voretion.Kobenation (
        trySort
      , natalyze
      , toBase64
      , fromBase64
      , dbgKob
      ) where

    https://github.com/k32/zenmaster

    Чей петух, кто знает?

    Konardinho, 10 Ноября 2019

    Комментарии (69)
  8. Haskell / Говнокод #25996

    0

    1. 1
    2. 2
    3. 3
    4. 4
    f :: [Int] -> [Int]
    f [] = []
    f [a] = []
    f (a:b:lst) = b: f lst

    Как вытащить каждый второй элемент из массива.

    bot, 26 Октября 2019

    Комментарии (138)
  9. Haskell / Говнокод #25851

    0

    1. 1
    http://hackage.haskell.org/package/haskelldb-2.1.1/docs/Database-HaskellDB-BoundedList.html#t:N94

    MAKAKA, 18 Сентября 2019

    Комментарии (3)
  10. Haskell / Говнокод #25323

    0

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    doit({txs, [Tx]}) ->
        X = tx_pool_feeder:absorb(Tx),
        Y = case X of
    	    ok -> hash:doit(testnet_sign:data(Tx));
    	    _ -> <<"error">>
    		     end,
        {ok, Y};

    Прекраснейший код на Erlang из великолепнейшей криптовалюты AMOVEO
    Здесь мы видим эндпоинт для отправки транзакций в сеть, возвращающий в случае ошибки ["ok","ZXJyb3I="]
    Приглядевшись можно увидеть закодированное в base64 слово «error»

    silvesterdrago, 24 Января 2019

    Комментарии (70)