todofmm's Journal
 
 [Most Recent Entries] [Calendar View] [Friends View]

Wednesday, August 20th, 2008

    Time Event
    12:09a
    С помощью вольфрамовской чудо-системы, даже идиот-дропаут может за пару часов параллельно с просмотром Numb3rs нарешать 10 проблем с http://projecteuler.net/
    На обычном языке пришлось бы писать длинную арифметику, считалки суммы цифр составляющих число и остальной мусор.
    Кстати, про Mathematica могу сказать, что пока все требуемые функции там присутствуют. Даже удивительно. Правда дифуры не очень хорошо решает, но сие простительно для столь богатой системы.
    10:20a
    ( My Interests Collage! )

    Кстати, я не все свои интересы узнал. Вам тоже советую такую штуку запостить, получше пердячих тестов будет.
    Кроме того, мотивация к пополнению interests.
    2:45p
    Почему мы врём детям.
    Если бы родители говорили своим детям правду о сексе и наркотиках, это могло бы звучать так: причина, по которой ты должен избегать этих вещей в том, что у тебя мало мудрости. Люди с вдвое большим чем у тебя опытом всё еще обжигаются на этих вещах. Но это может быть один из тех случаев, когда правда не будет убедительной, потому что один из признаков плохого уровня рассудительности — вера в то, что у тебя хорошая рассудительность. Если у тебя не хватает сил, чтобы поднять что-то тяжелое, это сразу видно; но если ты принимаешь решения импульсивно, здесь ты более уверен в себе.

    Чудесная статья Пола Грэхэма. Рекомендую к прочтению, ибо хорошо раскрыт сабж.
    10:00p
    Bitches don't know bout my CAS


    В процессе развлечений на Project Euler, люто-бешено возжелал свежей Mathematica шестого релиза. Что, собственно, и реализовал, благо TPB живой-здоровый, можете даже повторить мой опыт. Улучшилась документация, стала такой веб-образной и 2.0, но большей фичей стал набор «интерактивных» инструментов (куча красивостей на офф. сайте).
    Mathematica меня всегда радовала своей простотой невероятной, что и первокурсник и дроп-аут туповатый с ней справиться.
    Например, 26-ая задача решается просто формализацией:

    fLen[n_] := If[IntegerQ[RealDigits[1/n][[1]][[1]]], 0, Length[RealDigits[1/n][[1]][[1]]]];
    r = 0; i = 0; For[d = 1, d < 1000, d++, If[r < fLen[d], i = d; r = fLen[d]]]; Print[i]

    В качестве легкой вечерней зарядки вполне сойдёт. И вам тоже советую, ибо это красиво, просто и занимательно.

    ps картинка — original content, btw

    << Previous Day 2008/08/20
    [Calendar]     		Next Day >>

About LJ.Rossia.org