- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
#!/usr/bin/guile -s
!#
(define (square x)
(* x x))
(define (square_sum x y)
(+ (square x) (square y)))
(define (tmax x y z)
(cond ((and (>= x y) (>= x z)) x)
((and (>= y x) (>= y z)) y)
(else z)))
(define (tms x y z)
((cond ((= (tmax x y z) x)
(if (> y z)
(square_sum x y)
(square_sum x z)))
((= (tmax x y z) y)
(if (> x z)
(square_sum x y)
(square_sum y z)))
((= (tmax x y z) z)
(if (> x y)
(square_sum x z)
(square_sum y z)))
(else 0))))
(display "Ans: ")
(display (tms 6 5 4))
(newline)
Follow us!
Вот так:
https://sicp-solutions.net/post/sicp-solution-exercise-1-3/
Т. е. (= (tmax x y z) x) может выдавать ложноотрицательный результат.
Ее арестовали таки
1. Найти наименьшее значение.
2. Посчитать сумму квадратов всех элементов.
3. Вычесть из суммы квадрат наименьшего.
1. Найти наименьшее значение.
2. Посчитать сумму квадратов всех остальных элементов.
Плюс лисп можно компилировать.
time покажи
https://govnokod.ru/26382#comment542845
Если делать как там, то:
real - 0.013
user - 0.007
sys - 0.007
это похвально!!
Чувствуешь, как твой код реально представляет собой AST? Ощущаешь ли гомоиконность?
Нет.
> Ощущаешь ли гомоиконность?
Нет.
Зато ощущаю себя охуенным, т.к. написал функцию для подсчёта кубического корня.
То ли дело:
Исправил:
https://youtu.be/0CgafaxnQ9A
хотя конечно никаких хардов там нет: там есть прошитый в ПЗУ ЯП и накопитель на магнитных дисках (А то и на аудиокассетах)
https://gunkies.org/w/images/thumb/a/ae/IBM_5150_motherboard.jpg/400px-IBM_5150_motherboard.jpg
а потом пидорасы изобрели чипсет, и всё добро спрятали и стало скучно
Они у тебя they/them?
выйди и зайди нормально
https://d33wubrfki0l68.cloudfront.net/67f0a74f55b34de3cda797f8fdaceedad7a83fc2/908f1/img/esv43ww1uh-600.jpeg
С этим же все в порядке, не очень уклюжий креотифф
Скриптопиздунишки: пиздюнькают нам как прекрасно писать на скриптоговне без компиляции и стат типизации
Они же: переписывают свое говно на раст, и оно начинает работать в 10000 раз быстрее. https://twitter.com/charliermarsh/status/1613198373594578946?s=20&t=Ah1As1oS7sEyF P8OHLUlLg
Скриптопиздунишки пиздунишки
Скриптопиздунишки лицемеры
Никогда не верь скриптопиздунишкам
Скриптопиздунишка нам пропаганду принес
Про то, как хорошо есть говно без проклятой статической типизации и компиляции
Про то, как хорошо всем,
А лучше всех ему -- счастливому скриптопиздунишке
Я не уверен, что они же, а не просто подгон с царского плеча теми, кто вынужден по каким-то причинам 10% рабочего проводить с питоном. "Они же" обычно пишут на го.
Т.е. может он и питонист, но один-единственный такой питонист на все питонистическое коммьюнити
https://twitter.com/Zn_Portnova/status/1613175704895504384