import System.IO import Text.Read import Data.Complex data Solution a = OneSolution a | TwoRealSolutions a a | TwoComplexSolutions a a deriving (Show) prompt :: (Read a) => String -> IO a prompt text = do putStr text hFlush stdout line <- getLine case readMaybe line of Just x -> return x Nothing -> putStrLn "Invalid number entered" >> prompt text solveEquation :: (RealFloat a, Floating a, Ord a) => a -> a -> a -> Solution (Complex a) solveEquation a b c | a == 0.0 = OneSolution alone | d < 0.0 = TwoComplexSolutions x1 x2 | d == 0.0 = OneSolution x1 | d > 0.0 = TwoRealSolutions x1 x2 where d = b*b - 4*a*c x1 = f (+) :+ 0 x2 = f (-) :+ 0 f operator = -b `operator` sqrt d / (2*a) alone = ((-c) :+ 0) / realToFrac b main :: IO () main = do a <- prompt "Input a: " b <- prompt "Input b: " c <- prompt "Input c: " print $ solveEquation a b c

я к тому, что сравнивать флоаты так нельзя

Оу, сорян, хз, зачем сюда спастил.

Ну я хз, как сделать.

Там сначала 0 был

@hotkosc это цитата из кода

Но потом мне кто-то сказал, что с 0.0 более правильно, так как там Floating.

флоаты конечно нельзя сравнивать так

в числах с плавающей точкой есть погрешность

впрочем там при b == 0 все равно проблема

Так

http://hackage.haskell.org/package/ieee754-0.8.0/docs/Data-AEq.html

~== то, что интересует

@hotkosc кстати поменяй Solution тип

data Solution a = One a | TwoReal a a | TwoComplex (Complex a) (Complex a)

с другой стороны это не достаточно обще ?

т.к. почему запрещено агрументы комлексные иметь

но пофиг

ещё можно добавить NoSolution для случай solve 0 0 1

ну или какое исключение

Это да

Ладно, я на сегодня наверное свернусь, всем большое спасибо.

Завтра попробую допилить.

Блин, насколько это проще всё может быть: https://rosettacode.org/wiki/Roots_of_a_quadratic_function#Haskell

Вообще дичь

Блин, насколько это проще всё может быть: https://rosettacode.org/wiki/Roots_of_a_quadratic_function#Haskell

а потом пытаешься решить общее полиномиальное уравнение и становится грустно :с

Всмысле, оно ещё проще?

Всмысле, оно ещё проще?

не совсем точнее совсем нет не существует общего аналитического способа решить уравнение P(x) = 0, где P(x) некий полином от x

А, всё, понял.

ну тот вариант падает при a == 0

ну тот вариант падает при a == 0

делением на 0?

b=+-d (это возможно?)

да

другое дело, что это нормально отдавать на откуп вызывающему

Блин, насколько это проще всё может быть: https://rosettacode.org/wiki/Roots_of_a_quadratic_function#Haskell

и выше решение на го

вот кстати жалко что алгоритмы разные принципиально

хотя у го весьма дурное

я сегодня ещё не ругался на mtl?

все плохо?

я сегодня ещё не ругался на mtl?

жги

я даже не знаю как сформулировать, но в комбинации с MonadBaseControl в случае ошибок типов, ghc выдает нерелеватную фигню

по которой понять ошибку невозможно

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

аналогичный код работает в другом месте, такое ощущение что ghc чудит

Давайте, пишите сюда какие-нибудь сниппеты на хачкеле, я буду читать и попытаюсь вникнуть и разобраться.

А то что-то никого экшона.

rosetta code

@hotkosc fix f = x where x = f x

pascal = iterate $ \row -> zipWith (+) ([0] ++ row) (row ++ [0])

и?

Ваш экшон

у меня такой)) pascal' :: Int -> [[Int]] pascal' n | n <= 0 = [] | otherwise = ana psi [1] where psi = \case (length -> x) | x == (n + 1) -> Nil x -> Cons x (zipWith (+) ([0] <> x) (x <> [0]))

@hotkosc hackage://base

И то верно.

Но с розеттой мне совет больше понравился.

можно project euler-овские смотреть ещё задачи

там есть решения первой сотни, пытаться самому решить и посмотреть код потом

а есть пример использования метаморфизма?

метаморфизм это дуализм к хиломорфизму

☣️ВНИМАНИЕ ЕСТЬ РАБОЧЕЕ ПРЕДЛОЖЕНИЕ☣️ ☣️? РАБОТА В БЛИЖНЕМ ЗАРУБЕЖЬЕ ?☣️ - ВОДИТЕЛЯ ( ? 500 у.е. рейс - месяц ? 4000 у.е. ) - РАБОТНИК СКЛАДА ( от ? 600 у.е до ? 850 у.е неделя ) ОФОРМЛЕНИЕ НА РАБОТУ В ГОРОДЕ КИЕВЕ. ДОХОД ? НЕ ФИКСИРОВАН , ЗАВИСИТ ТОЛЬКО ОТ ?? ВЫРАБОТКИ , ПРОВОДИТСЯ СТАЖИРОВКА И ОБУЧЕНИЕ ЗА НАШ СЧЕТ. ЖИТЕЛЕЙ ДРУГИХ ГОРОДОВ И СТРАН ПРЕДЛАГАЕМ РАБОТУ И ПРОЖИВАНИЕ. БЕЗ ВЛОЖЕНИЙ! ТРЕБОВАНИЯ К РАБОТНИКУ: - ПОЛНЫХ 18 ЛЕТ. ? - АДЕКВАТНОСТЬ. ⚠️✅ - ПРАВА МИНИМУМ КАТЕГОРИИ "В" ?. - УМЕНИЕ ПОЛЬЗОВАТЬСЯ СМАРТФОНОМ (НЕ КАТЕГОРИЧНО). ? - ЦЕЛЕУСТРЕМЛЕННОСТЬ ↗️. ОФОРМЛЕНИЕ НА РАБОТУ - ПО ДОКУМЕНТАМ ? + АНКЕТКА?. ПИСАТЬ МЕНЕДЖЕРУ В ЛИЧКУ - ☎️ https://t.me/WH1000 ⚖️

Киньте бан, а

Лол. Господа хаскелисты, никто не хочет дальнобоем поработать? ?

я хотел бы пилотом гражданской авиации. но когда я это понял, я уже слишком старый был

до 30-ти лет были бы шансы

нескольких людей знаю, которые из IT пошли в пилоты.

А в чём проблема то?

старый, пока обучусь, пока здоровье приведу в порядок - операции на глазах и т.п. есть мнение, что это все не окупится до момента выхода на пенсию

т.е праваки много не зарабатывают, а до КВС-а уже не успею

Упирается в деньги всё. 10к$ и будет у тебя лицензия.

а вот мой знакомый так стал КВС-ом

А, здоровье. Ясно.

ну это не фатальная проблема - просто глаза починить, все так и делают

это не кто-то из ушедших из IT-шников недавно разбился?

ну этого я не знал

А есть какая-то статистика по смертности среди пилотов гр. авиации? Это в среднем опасная профессия или нет? (сорри за оффтоп)

нет

статистику не знаю, но профессия не особо опасная

т.е праваки много не зарабатывают, а до КВС-а уже не успею

Пилот-любитель дешевле, меньше требования по здоровью. А как получишь, может, и не захочешь летать

https://understandinguncertainty.org/node/243

метаморфизм это дуализм к хиломорфизму

что значит дуализм?

@ukunsun ну мы про профессию говорим

имелось ввиду, что структура dual?

да, дуальная конструкция

как наример ката-ана, пара-апо

@ukunsun пилот-любитель это хобби, мне скайдайва хватает за глаза, авиация - дороже

да, дуальная конструкция

это когда в категории стрелочки перевёрнуты?

это когда в категории стрелочки перевёрнуты?

да

аа

а как это в хаскеле выражается?

а как это в хаскеле выражается?

например (,) и Either

произведение и копроизведение

@ukunsun ну мы про профессию говорим

Дообучиться проще с любителя. Прошу простить за рекламу, но ЧелАвиа обучают (в том числе и до уровня профессии), и рекомендуют сначала любителя, а потом решать.

например (,) и Either

ну а как например определить дуальность не имея теоркатного представления