Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
0
#!/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
0
;; 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
−2
not' = isInfinite . (1/)
digitalEugene,
06 Января 2022
−1
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
0
module Voretion.Kobenation (
trySort
, natalyze
, toBase64
, fromBase64
, dbgKob
) where
https://github.com/k32/zenmaster
Чей петух, кто знает?
Konardinho,
10 Ноября 2019
0
f :: [Int] -> [Int]
f [] = []
f [a] = []
f (a:b:lst) = b: f lstКак вытащить каждый второй элемент из массива.
bot,
26 Октября 2019
0
http://hackage.haskell.org/package/haskelldb-2.1.1/docs/Database-HaskellDB-BoundedList.html#t:N94
MAKAKA,
18 Сентября 2019
0
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
−1
instance Arbitrary ProjectConfig where
arbitrary =
ProjectConfig
<$> (map getPackageLocationString <$> arbitrary)
<*> (map getPackageLocationString <$> arbitrary)
<*> shortListOf 3 arbitrary
<*> arbitrary
<*> arbitrary
<*> arbitrary
<*> arbitrary
<*> arbitrary
<*> arbitrary
<*> (MapMappend . fmap getNonMEmpty . Map.fromList
<$> shortListOf 3 arbitrary)
-- package entries with no content are equivalent to
-- the entry not existing at all, so exclude empty
shrink ProjectConfig { projectPackages = x0
, projectPackagesOptional = x1
, projectPackagesRepo = x2
, projectPackagesNamed = x3
, projectConfigBuildOnly = x4
, projectConfigShared = x5
, projectConfigProvenance = x6
, projectConfigLocalPackages = x7
, projectConfigSpecificPackage = x8
, projectConfigAllPackages = x9 } =
[ ProjectConfig { projectPackages = x0'
, projectPackagesOptional = x1'
, projectPackagesRepo = x2'
, projectPackagesNamed = x3'
, projectConfigBuildOnly = x4'
, projectConfigShared = x5'
, projectConfigProvenance = x6'
, projectConfigLocalPackages = x7'
, projectConfigSpecificPackage = (MapMappend
(fmap getNonMEmpty x8'))
, projectConfigAllPackages = x9' }
| ((x0', x1', x2', x3'), (x4', x5', x6', x7', x8', x9'))
<- shrink ((x0, x1, x2, x3),
(x4, x5, x6, x7, fmap NonMEmpty (getMapMappend x8), x9))
]В хачкеле мало бойлерплейта, говорили они. Это ещё далеко не самый длинный список, см. x43 ниже.
https://github.com/haskell/cabal/blob/4e0c701a2feb520d369ef506a18288c47f64b06a/cabal-install/tests/UnitTests/Distribution/Client/ProjectConfig.hs
roman-kashitsyn,
06 Июля 2018
+6
data Foo a = Foo {a :: a, b :: Int}
| Bar {b :: Int}
foo :: (a -> b) -> Foo a -> Foo b
foo f [email protected]{a = a} = x{a = f a}
foo _ [email protected]{} = x -- error: Couldn't match type ‘a’ with ‘b’
foo _ [email protected]{} = x{} -- error: Empty record update
Рекорды всё-таки дубовые
cast @HaskellGovno
CHayT,
03 Марта 2018
Follow us!