- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
samples = [(1,14),(2,-66),(3,-414),(4,-1180),(5,-2370),(6,-3726),(7,-4606),(8,-3864),(9,270)]
-- Бесконечная система уравнений для МНК
system s = zip (matrix s) (column s) where
matrix = iterate tail . foldr1 (zipWith (+)) . map (\(x,y) -> iterate (*x) 1)
column = foldr1 (zipWith (+)) . map (\(x,y) -> iterate (*x) y)
-- Сведение бесконечной системы к треугольному виду (первый шаг гаусса)
triangle (eq:eqs) = (eq : triangle (map (sub eq) eqs)) where
sub eq1@(a1:as, ae) eq2@(b1:bs, be) = (zipWith f as bs, f ae be) where
f a b = b - a * b1 / a1
-- Вычисление иксов (второй шаг гаусса)
calcX n = foldr calc [] . take n where
calc (a:as, b) xs = ((b - sum (zipWith (*) as xs)) / a : xs)
-- метод наименьших квадратов
mnk n = reverse . calcX n . triangle . system
Метод наименьших квадратов.
http://ideone.com/CsD0ku
Follow us!
m, c = np.linalg.lstsq(A, y)[0]
Примерно так они думали, нажимая на минус.
Я тянок люблю.
Хочу рассказать тебе одну историю. Жил-был на белом свете один мальчик, примерно твоих лет.
И вот как-то раз, начитавшись разных умных форумов в его маленькую головку пришла одна простая мысль.
Но обо всем по порядку. Однажды он увидел тред где жестоко насмехались над обосравишмся.
Такое событие потрясло его - ведь человек не виноват что он срёт.
А немного погодя он нашел сайт, где смеялись над разными обрацами говна.
А чем же закончилась эта история?
Говно? И слава богу.
Сорри. Что-то меня на туалетный юмор пробило.
Не умея какать радугой и бабочками, в отличие пони, он твердо решил перестать срать. Совсем.
День без ненужного побочного эффекта дефекации пролетел незаметно. Говно пару раз подступало, но его удалось сдержать.
Второй день принес неожиданный сюрприз - наш герой обосрался прямо в переполненной маршрутке.
Первая попытка перестать срать, успеха не принесла, но это не остановило бесстрашного парня.
Тогда было принято важное решение - запыжевать анал, а жопу зашить нитками (для верности)
Дабы не дать говну ни единого шанса.
Зашивать жопу ему было не впервой - после многочисленных контузий на полях интернет-баталий он овладел этим навыком в совершенстве.
Баррикадирование анала оказалось делом более проблемным, но он справился и с этой трудностью.
Прошла неделя. Он стал толстеть.
Говно постепенно интегрировалось в его организм.
Через месяц процесс завершился и говно поглотило его полностью.
Так что не осталось ни единого ограна без молекул говна. После чего он сам превратился в Гумно.
Ныне он своей жуткой вонью отравляет жизнь посетителей разных форумов, ходят слухи, что распознать его можно по приставке Govno у ника.
Конец.
http://img.sc/img/5d4fa1fc02b959ad6b57a3456f30d6db.jpg
Мораль истории в том, что идеальные математические модели, немутабельность, чистота и всё такое неприменимы к нашему неидеальному миру.
К ним можно приблизится, но всё-равно где-то будет вылазить говно. А если зашить жопу нитками, то получится еще хуже.
Ctrl+Shift+Del, Enter
И кстати, не понимаю, почему все говорят "выучил хаскель, теперь писать на языке X противно". Мне понравился хаскел, но тем не менее я не испытываю никаких трудностей с программированием на других языках, хоть питон, хоть си++, даже недавно писал на паскале.
Разрыв шаблонов, конечно был, но это больше было похоже не на "блядь, нахуй императивщину, функциональщина рулит", а на "вот оно как, помимо императивщины есть функциональщина и она очень хороша".
Никакой неприязни к императивному или объектно-ориентированному программированию у меня не появилось.
Но лисп слишком низкоуровневый среди функциональных языков (естественно, раз под него были процы в своё время). Потому он пративный после высокоуровнего хаски или даже любых других функциональных. А если ещё добавить к этому мою не любовь к динамикопетушащим языкам, тк они не подходят для частичного док-ва корректности программы во время компиляции, то это ставит на лиспе крест. Кстати, в CL есть даже goto, дохрена мутабильности и глобальных переменных.
CL и Sheme я вообще хочу выучить не из-за функциональщины, а из-за макросов. Вдохновило вот это видео http://landoflisp.com
Золотые слова. Функциональщины там особой нет, но макросы очень доставляют.
Land of Lisp, кстати, довольно неплохая книженция