-
−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
-
−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
-
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
-
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
-
−2
- 1
not' = isInfinite . (1/)
digitalEugene,
06 Января 2022
-
−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
-
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
-
0
- 1
- 2
- 3
- 4
f :: [Int] -> [Int]
f [] = []
f [a] = []
f (a:b:lst) = b: f lst
Как вытащить каждый второй элемент из массива.
bot,
26 Октября 2019
-
0
- 1
http://hackage.haskell.org/package/haskelldb-2.1.1/docs/Database-HaskellDB-BoundedList.html#t:N94
MAKAKA,
18 Сентября 2019
-
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