shadow_aka_hf

F# vs С++

2009-11-03T06:25:41Z

Не нашел возможности в F# параметризовать тип значением. А было бы полезно.

о технологиях программирования

2009-10-07T03:43:39Z

Исключительно правильное замечание о технологиях программирования. К языкам тоже относится.

При всем моем скептицизме по отношению к Agile, TDD, XP т.д. должен заметить, что при разговоре о технологиях/методологиях программирования примеры меньше 6 человеко-месяцев неинтересны.

Мнение технаря

2009-09-29T05:04:54Z

Мнение технаря о http://vveshka.livejournal.com/24522.html

"Археологической экспедиции ИИМКа приказано закончить работы к 1 апреля 2010 года. А чтобы все докопать, нужен, как минимум, еще один полевой сезон." То есть вопрос в темпах работ.
При этом никто не говорит "давайте поможем археологам", не пытаются найти способы увеличить финансирование, вложить собственные деньги или иным способом ускорить процесс.

vveshka: Ну а наше с Вами дело рассказать всем, распечатать больше листовок, прийти на митинг. Т.е. попиздеть, и не больше.

А еще у меня вопрос, а в чем, собственно, ценность таких археологических находок?

Upd. А вот и альтернативное мнение:
Единственное приемлимое решение - создание на месте музея. Чтобы и неолит был, и ланскронская стена, и ниеновский бастион. В одном месте. С кафешками и магазинами сувениров. Угадайте, кто предлагает такое решение? Правильно. Проклинаемый всеми Газпром. Аналоги - Музей Истории Москвы, Йоркский викинговский центр, музей Лондона. Это все "отступные", построеные на материалах таких же раскопок. И никто не плачет, хотя в Йорке даже не небоскреб, а банальные торговые ряды на месте ворот Коппергейт построили...

shadow_aka_hf @ 2009-09-24T15:52:00

2009-09-24T08:58:03Z

Вот и Alt решил попилить.
http://cnews.ru/news/top/index.shtml?2009/09/23/363033

Стратегия на 4х страницах ))
http://filearchive.cnews.ru/doc/2009/09/23/strategy_v4.3.3.doc

Текст - хороший пример того, как не надо писать документы.

Рабочее

2009-09-09T09:41:15Z

Интересно, что делать, когда руководство об очередной идее говорит: "Да, это перспективно и много кому нужно, но мы не может отвлечь людей от существующих проектов"?

F#

2009-09-03T10:11:51Z

Пробую F#.
Получается достаточно красиво, но пока не очень эффективно.

Коментарии приветствуются.

open System;

let count_quality_for center data distance = 
    data 
    |> Seq.fold(fun s x -> (s + distance x center)) 0.0

let find_center_for data distance =
    data 
    |> Seq.minBy(fun x -> count_quality_for x data distance)
    
let nearest_from centers distance value =   
    centers 
    |> Seq.minBy ( fun x -> distance x value)
    
let group data nearest =
    data 
    |> Seq.groupBy(fun x -> nearest x)
    |> Seq.to_array

let select_random_sub data size = 
    let rand = new Random()
    data
    |> Seq.map (fun x -> (x, rand.NextDouble() )) 
    |> Seq.sortBy(fun (x,y) -> y)
    |> Seq.map(fun (x,y) -> x) 
    |> Seq.take size
    |> Seq.to_array

let move_centers centers data distance = 
    group data  (nearest_from centers distance) 
    |> Seq.map(fun (x,y) -> (x, find_center_for y distance))
    |> Seq.to_array
    
let rec kmeans_iteration centers data distance =
    let old_new_centers = move_centers centers data distance    
    let movement = old_new_centers |> Seq.fold (fun s (x,y) -> s + distance x y) 0.0
    let new_centers = old_new_centers |> Seq.map(fun (x,y) -> y)
    
    if (movement>Double.Epsilon) then
        kmeans_iteration new_centers data distance
    else
        new_centers
                
let get_kmeans_centers K data distance = 
    let initial_centers = select_random_sub data K 
    let centers = kmeans_iteration initial_centers data distance
    (centers,( centers |> Seq.fold (fun s x -> s + count_quality_for x data distance) 0.0))

shadow_aka_hf @ 2006-04-27T13:36:00

2006-04-27T06:34:02Z

Создал журнал. В основном чтобы анонимно не писать комменты.
Но может что-то будет сюда писаться.