Haskell — Говнокод.ру

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

−4

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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)

Haskell / Говнокод #28596

−1

01
02
03
04
05
06
07
08
09
10
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)

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

0

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
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)

Haskell / Говнокод #28529

0

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
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)

Haskell / Говнокод #27930

−2

1

not' = isInfinite . (1/)

digitalEugene, 06 Января 2022

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

Haskell / Говнокод #27033

−1

01
02
03
04
05
06
07
08
09
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)

Haskell / Говнокод #26021

0

1
2
3
4
5
6
7

module Voretion.Kobenation (
    trySort
  , natalyze
  , toBase64
  , fromBase64
  , dbgKob
  ) where

https://github.com/k32/zenmaster

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

Konardinho, 10 Ноября 2019

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

Haskell / Говнокод #25996

0

1
2
3
4

f :: [Int] -> [Int]
f [] = []
f [a] = []
f (a:b:lst) = b: f lst

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

bot, 26 Октября 2019

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

Haskell / Говнокод #25323

0

1
2
3
4
5
6
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)

Говнокод: по колено в коде.