ㅤ

там код открыт если что

и? ктото должен пойти и бесплатно оптимизировать

ㅤ

мне нет нужды это делать

ㅤ

но ты в него даже не посмотрел, так?

я знаю как эти тесты делаются

ㅤ

тяп ляп

Vladislav

мне нет нужды это делать

да ты и не можешь

Vladislav

я знаю как эти тесты делаются

не знаешь

Андрей

За 3 с лишним часа ты ничего не поптытался доказать. Пиздабол из тебя отменный, самостоятельный ты наш. Но прости раба, пожалуйста.

ㅤ

да ты и не можешь

могу, но не делаю пустую работу

Андрей

Спокойной ночи.

ㅤ

Спокойной ночи.

споки

Vladislav

могу, но не делаю пустую работу

нет, не можешь

ㅤ

не знаешь

тебе виднее

ㅤ

очень много хаскельного кода, написано людьми которые переехали с ооп и пишут неправильно

ㅤ

это нормально

ㅤ

мозги имеют инетртность мышления

Vladislav

а ты в опенсорс пишешь что-нибудь, кстати?

ㅤ

нет

Андрей

И последний аргумент: Еслb хаскель такой простой, то скажи что делает этот код. Я его за тебя написал: import Data.List import Data.Bits fun :: Int -> Integer fun n = snd . foldl' fib' (1, 0) . dropWhile not $ [testBit n k | k <- let s = bitSize n in [s-1,s-2..0]] where fun' (f, g) p | p = (f*(f+2*g), ss) | otherwise = (ss, g*(2*f-g)) where ss = f*f+g*g

Андрей

Хаскель это же такой простой и понятный язык.

ㅤ

в тестах посмори, в многих, вариант на плюсах ест проц 100% а на хаскеле есть аж 2% это говорит о дикой не оптимальности, но конечно, параметр косвенный

ㅤ

Хаскель это же такой простой и понятный язык.

я этого не говорил

Андрей

я этого не говорил

Ты говорил, что он понятный.

ㅤ

И последний аргумент: Еслb хаскель такой простой, то скажи что делает этот код. Я его за тебя написал: import Data.List import Data.Bits fun :: Int -> Integer fun n = snd . foldl' fib' (1, 0) . dropWhile not $ [testBit n k | k <- let s = bitSize n in [s-1,s-2..0]] where fun' (f, g) p | p = (f*(f+2*g), ss) | otherwise = (ss, g*(2*f-g)) where ss = f*f+g*g

хочешь меня проэкзаминировать?

Vladislav

нет

жаль, не посмотреть на богокод(