Функциональное программирование: в Java и C# слишком много церемоний

Пример с игрой Жизнь на F# не очень показательный. На C# с помощью linq получается примерно также:

        static void Main()
        {
            var rnd = new Random();
            var size = 10;
            var grid = Enumerable.Range(0, size * size).Select(_ => rnd.Next(2)).ToArray();
            Func<int, int, int> match = (v, n) => n == 3 ? 1 : n == 2 ? v : 0;
            var neighbours = new[] { -1 - size, -size, 1 - size, -1, 1, -1 + size, size, 1 + size };
            while (true)
            {
                Console.Clear();
                foreach (var s in Enumerable.Range(0, grid.Length / size)
                                    .Select(y => string.Join("", Enumerable.Range(0, size).Select(x => grid[y * size + x]))))
                    Console.WriteLine(s);
                grid = grid.Select((v, i) => match(v, neighbours.Sum(o => grid[Math.Abs(i + o) % grid.Length]))).ToArray();
                Thread.Sleep(300);
            }
        }

Конкурс по программированию на JS: Классификатор слов

В таком случае, получается, что сместился акцент конкурса. Вместо соревнования на определение максимума слов, получилось соревнование на скорость, с которой достигается максимум. А сам максимум будет зависеть от количества тестов. Это как в спорте. Вместо того, чтобы соревноваться, в весе поднимаемой штанги, будут соревнования по количеству подъема штанги определенного веса. А все участники, кто вообще не может поднять этот вес, автоматически отсеиваются. Я из тех, кто отсеился ) Буду с интересом наблюдать за поднимающими штангу )

Конкурс по программированию на JS: Классификатор слов

Да! Главное — это соревновательный дух. Решать задачу в одиночку скучно и уныло. А когда ее решают сотни других людей, хочется, чтобы именно твое решение оказалось лучшим.
Кстати, есть же открытые задачи, за которые даже есть награды. Например, поиск чисел Мерсенна.
Как то участвовал в решениитакой бесплатной задачи. Хоть и бесплатно, хоть и простая числодробилка, но, блин, интересно от того, что задачу еще кто-то кроме тебя решает.

Конкурс по программированию на JS: Классификатор слов

У меня это сильно сокращало объем сохраняемых данных. К примеру, берем все 4-х буквенные префиксы слов. Всего их, допустим, 70000. Если отбросить редкие, получаем всего 10000 префиксов. Объем сохраняемых данных уменьшается с десятков килобайт, до нескольких килобайт. На результате тоже сказывается, но не так сильно. И это очень хороший эффект. А вот всех возможных неправильных четырех буквенных префиксов 531441 — 70000 = 461441. И понять, какие из них чаще встречаются в неправильных словах можно только собрав статистику по генератору.

Конкурс по программированию на JS: Классификатор слов

Да, я знаю. Просто интересно было решать задачу в более общем виде, а не подстраивать под генератор. Например, можно собирать статистику разных комбинаций букв по словарю и отбрасывать редкие варианты. Количество всех вариантов получается небольшим, а отбрасывание редких сильно уменьшает выборку. Но вот если взять множество всех возможных неправильных слов, то их количество на порядки (даже экспоненциально) больше. И в общем случае нет возможности отсеить редкие комбинации. Тут как раз и возникает соблазн собирать такую статистику по неправильным словам из генератора. Жаль, что я так и не решился на это.

Конкурс по программированию на JS: Классификатор слов

А если немного подкрутить генератор, например, чтобы он давал 20% слов из словаря и 80% неправильных слов, то «читерские» решения опять же окажутся тыквой. А «честные» покажут примерно тот же результат.

Алгоритм Метромарафона. Как аналитик Яндекса просчитал, что все станции можно посетить за один день

Я писал про среднюю скорость поезда, а не среднюю скорость вашего перемещения.
У вас же есть все расстояния между станциями и есть маршрут. Можете посчитать общую длину маршрута?

Алгоритм Метромарафона. Как аналитик Яндекса просчитал, что все станции можно посетить за один день

В Москве карточки. Конечные станции ничем не отличаются от любой другой. Заплатить нужно только один раз и кататься весь день.

Алгоритм Метромарафона. Как аналитик Яндекса просчитал, что все станции можно посетить за один день

Из вики: длина метро 333,5 км. Средняя скорость 41,24 км/ч.

Алгоритм Метромарафона. Как аналитик Яндекса просчитал, что все станции можно посетить за один день

Интересно, какое расстояние в итоге проехали?
Если вы на каждой станции были, например, полторы минуты, это получается 5 часов стоянки на станциях. Тогда в дороге 11 часов 22 минуты. Если взять среднюю скорость поезда 60 км/ч, то получится 682 км.

Конкурс по программированию на JS: Классификатор слов

Ну, знаете ли. После того, как несколько человек тут отписались о результатах больше 80%, а потом сказали, что это была ошибка, я уже и к 75% скептически отношусь.
Идеи тут у всех примерно одинаковые. Единственное, что не пробовал — нейросети. Но тут очень велико разнообразие их конфигураций, способов задания входов, алгоритмов обучения. Все перепробовать времени не хватит.

Конкурс по программированию на JS: Классификатор слов

А так — да, с gzip'ом 100% утрамбовываются примерно в 820-860 КиБ.

Какая-то фантастика. Почитаешь комментарии и думаешь, что я тут вообще делаю. Мне чтоб в 820 упаковать пришлось еще некоторую предобработку словаря сделать. И то сжимал winrar-ом. gzip-ом только 920 получается. Как вы это делаете? И что я тут делаю?

Конкурс по программированию на JS: Классификатор слов

Ну мне удалось его в 100КиБ впихнуть.

Как? У меня 820КиБ, хоть ты тресни.
Хотя, есть идея как сжать сильнее, но время распаковки O(n!) и будет длиться до конца жизни вселенной.

Задача о двух мудрецах. Компьютерная программа для решения

«Для ясности — когда я считаю для Max=N, то имею ввиду, что числа строго-меньше этого N.»
Тогда все совпадает.

Задача о двух мудрецах. Компьютерная программа для решения

У меня изначально не было цели написать решение для диапазона в 5000 чисел. Программа быстро решала для 100 и этого было достаточно. Чтобы решить для 5000 пришлось запросы немного переделать. Но опять же, цели написать оптимальное решение нет. Цель — написать код в несколько строк :)

Решение на C#

using System;
using System.Collections.Generic; // for HashSet
using System.Diagnostics;
using System.Linq;
class Program
{
	static void Main()
	{
		var birthDays = Enumerable.Range(2, 4999)
			.Join(
				Enumerable.Range(2, 4999), n => 1, n => 1,
				(n1, n2) => new {D = n1*n2, M = n1 + n2, N1 = n1, N2 = n2})
			.Where(d => d.N2 >= d.N1).ToList();
		var x1 = birthDays.GroupBy(d => d.D).Where(g => g.Count() == 1).SelectMany(g => g).ToList();
		var monthWithUniqueDays = new HashSet<int>(x1.Select(d => d.M));
		var x2 = birthDays.Where(d => !monthWithUniqueDays.Contains(d.M)).ToList();
		var x3 = x2.GroupBy(d => d.D).Where(g => g.Count() == 1).SelectMany(g => g).ToList();
		var solve = x3.GroupBy(d => d.M).Where(g => g.Count() == 1).SelectMany(g => g).ToList();
		Console.WriteLine(string.Join(", ", solve.Select(d => d.N1 + " " + d.N2)));
	}
}

Результаты:
Max=5000 (~19,1 сек)
4 13, 4 61, 4 229, 16 73, 16 111, 32 131, 32 311, 64 73, 64 309, 67 82
Max=2000 (~2,2 сек)
4 13, 4 61, 16 73, 32 131
Max=866
4 13, 4 61
Max=867
4 13, 4 61

Задача о двух мудрецах. Компьютерная программа для решения

Нужно еще больше статей про эту задачу!
Вот тут решения на разных языках habrahabr.ru/post/256293
«Готовой компьютерной программы, позволяющей решать такие задачи при любом заданном максимальном числе, обнаружить не удалось.»
Из статьи не понятно, что за ограничения других программ не позволяют решать эту задачу при любом заданном максимальном числе. Вот возьми, например, любое решение из приведенной мной ссылки и объясни, чем плохо решение.

Решение задачи о двух мудрецах и числах от 1 до 100

Альберт знал, что месяц июль, следовательно выбор у него только между 14 и 16.

Решение задачи о двух мудрецах и числах от 1 до 100

Решение на C#:

using System;
using System.Linq;
class Program
{
	static void Main()
	{
		var birthDays = Enumerable.Range(2, 98)
			.Join(
				Enumerable.Range(2, 98), n => 1, n => 1,
				(n1, n2) => new {D = n1*n2, M = n1 + n2})
			.Distinct().ToList();
		var x1 = birthDays.Where(d => !birthDays.Any(d1 => d.D == d1.D && d.M != d1.M)).ToList();
		var x2 = birthDays.Where(d => x1.All(d1 => d1.M != d.M)).ToList();
		var x3 = x2.Where(d => !x2.Any(d1 => d1.D == d.D && d1.M != d.M)).ToList();
		var solve = x3.Where(d => !x3.Any(d1 => d1.D != d.D && d1.M == d.M)).ToList();
		Console.WriteLine(string.Join(", ", solve.Select(d => d.D + " " + d.M)));
	}
}

Решение задачи о двух мудрецах и числах от 1 до 100

Решение на прологе:

uniqueDay(X,D/M) :- select(D/M,X,Y),\+member(D/_,Y).
uniqueMonth(X,D/M) :- select(D/M,X,Y),\+member(_/M,Y).
monthWithUniqueDay(X,_/M) :- uniqueDay(X,_/M).
solve(X,X0) :-
    exclude(monthWithUniqueDay(X0),X0,X1),
    include(uniqueDay(X1),X1,X2),
    include(uniqueMonth(X2),X2,X).

birthDays(X) :- X = [15/5,16/5,19/5,17/6,18/6,14/7,16/7,14/8,15/8,17/8].

num(D/M) :- numlist(2,99,N),select(X,N,_),select(Y,N,_),D is X * Y,M is X + Y.
nums(X) :- setof(Y,num(Y),X).

solve1(X) :- birthDays(X0),solve(X,X0).
solve2(X) :- nums(X0),solve(X,X0).

Унификация и поиск с возвратом на C#

Так ведь библиотека и является инструментом. Который подходит для решения данной задачи. Я знаю C# и если вижу какую-то интересную задачу, то первым делом пытаюсь ее решить именно на этом языке. И я сделаю это гораздо быстрее и эффективнее, чем на более подходящем для этой задачи языке, но который я не знаю. Хотя специалист по тому языку, возможно, сделает на нем более эффективное решение. Зависит от цели — решить задачу или решить ее наиболее оптимально по какому-то критерию. Я даже числодробилки пишу на C#, хотя C для этого лучше подходит. Потому что это доставляет мне больше удовольствия, хотя код может получиться процентов на пятьдесят медленнее.