- 1
(1 until n) flatMap (i => (1 until i) filter (j => isPrime(i+j)) map (j => (i, j)))
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+89
(1 until n) flatMap (i => (1 until i) filter (j => isPrime(i+j)) map (j => (i, j)))
Скала говна.
LispGovno 13.06.2014 19:49 # +25
kegdan 13.06.2014 20:12 # +19
guest 13.06.2014 20:17 # +21
guest 13.06.2014 20:18 # +18
kegdan 13.06.2014 20:33 # +20
guest 13.06.2014 20:36 # +19
guest 13.06.2014 21:13 # +25
Здраствуйте. Я, guest. Хотел бы чтобы вы сделали игру, 3Д-экшон суть такова... Пользователь может играть лесными эльфами, охраной дворца и злодеем. И если пользователь играет эльфами то эльфы в лесу, домики деревяные набигают солдаты дворца и злодеи. Можно грабить корованы...
kegdan 13.06.2014 21:17 # +21
bormand 13.06.2014 21:19 # +20
Зарегайся на гейдеве и запили.
guest 14.06.2014 01:19 # +17
eth0 14.06.2014 14:19 # +18
bormand 13.06.2014 20:28 # +18
guest 13.06.2014 20:35 # +16
kegdan 13.06.2014 21:07 # +18
так?
bormand 13.06.2014 21:17 # +18
[1 .. x], ниже же сам юзаешь такую конструкцию...
> y<-xl, z<-xl
Из-за этого выдает (1, 2) и (2, 1). Оригинал так вроде бы не делает.
> foldr (&&) True
Можно заменить на and или all.
Вот здесь можешь искать функции по типам аргументов и результата: http://www.haskell.org/hoogle/
Вводим [Bool] -> Bool и смотрим чего он нам предлагает.
> так?
Ну проверка на простоту совсем уж неоптимальна, но похер. Как первое приближение - сойдет.
kegdan 13.06.2014 21:22 # +17
так лучше? учусь, нублю, туплю
bormand 13.06.2014 21:32 # +19
Вот так тоже можно, чтобы вхолостую не жечь итерации: [(y, z) | y <- [1..x], z <- [1..y], isPrime $ y + z]
Ничего личного, но проверка на простоту - сраное говно. Делает дохрена лишней работы.
kegdan 13.06.2014 21:34 # +19
даже
[(y, z) | y <- [1..x], z <- [1..$y-1], isPrime $ y + z]
bormand 13.06.2014 21:38 # +17
Не делай так, просрешь пару (1, 1).
kegdan 13.06.2014 21:40 # +17
guest 14.06.2014 01:22 # +17
Тут бы до корешка
bormand 13.06.2014 21:46 # +18
Хинт со звездочкой: если число не делится на 3, то и на 6 оно делиться не будет. Поэтому имеет смысл делить не на все подряд, а только на некоторые числа, обладающие определенным свойством.
kegdan 13.06.2014 22:21 # +15
а производительность не загнется? надо хешировать результаты вычисления IsPrime что бы было быстро
Второй хинт явно про решето Эратосфена
bormand 13.06.2014 23:22 # +16
Не, его на иммутабельных структурах не замутить (или замутить?). Х Я имел в виду комбинацию фильтра и кеша.
Я вот так делал: Всего 168 простых чисел в primes позволяют тестить на простоту и разлагать на простые где-то до миллиона.
kegdan 13.06.2014 23:42 # +18
в качестве бреда
https://ideone.com/hRqBrF
bormand 13.06.2014 23:54 # +16
Надо будет сравнить по производительности.
bormand 14.06.2014 00:05 # +16
мой код - 0.045s
твой код - 2.612s
Простые числа до 1000000:
мой код - 0.478s
твой код - не дождался
В общем идея не самая удачная ;( Ну и это не совсем решето эратосфена - решето эффективно в основном за счет того, что в нем нету делений.
> почему не замутить? фильтровать и усе
А вот это, кстати, надо попробовать - каскад фильтров, помечающих каждый N'й элемент как False (без деления). Правда памяти дохера сожрет...
kegdan 14.06.2014 00:19 # +18
bormand 14.06.2014 00:21 # +17
Да можно и с вырезанием попробовать, кстати. Завтра с утра подумаю над этим. Идею то ты интересную предложил.
kegdan 14.06.2014 00:25 # +18
bormand 14.06.2014 08:08 # +17
kegdan 14.06.2014 08:34 # +18
kegdan 14.06.2014 08:57 # +17
someFunc a a = doSmth
?
только
someFunc a b
|a==b = doSmth
?
bormand 14.06.2014 09:06 # +19
kegdan 14.06.2014 09:15 # +16
bormand 14.06.2014 09:38 # +18
kegdan 14.06.2014 11:52 # +18
guest 14.06.2014 01:30 # +16
bormand 14.06.2014 07:47 # +18
bormand, 100000: http://ideone.com/PGszGj 0.06s 6232KB
bormand, 1000000: http://ideone.com/dY8Nl6 1.06s 8280KB
kegdan, 100000: https://ideone.com/r1oFkL 4.55s 7248KB
kegdan, 1000000: https://ideone.com/08dgCk таймаут
P.S. На ideone комп вдвое слабее, судя по таймингам.
Abbath 14.06.2014 00:27 # +20
guest 14.06.2014 18:35 # +17
1024-- 14.06.2014 11:26 # +18
kegdan 14.06.2014 12:45 # +21
bormand 14.06.2014 12:48 # +21
Насчет разветвлений - копни в сторону Control.Arrow. Вроде там есть то, что тебе нужно.
1024-- 14.06.2014 13:21 # +18
kegdan 14.06.2014 13:35 # +17
1024-- 14.06.2014 13:40 # +18
оказывается, мой &&& ещё и упростить можно
kegdan 14.06.2014 13:44 # +17
?
1024-- 14.06.2014 13:47 # +17
f от двух аргументов
guest 14.06.2014 13:54 # +18
Привет поехавшим.
kegdan 14.06.2014 14:08 # +17
1024-- 14.06.2014 14:11 # +18
1024-- 14.06.2014 14:09 # +18
kegdan 14.06.2014 14:14 # +20
1024-- 14.06.2014 14:14 # +19
kegdan 14.06.2014 14:17 # +17
kegdan 14.06.2014 13:55 # +18
g::x->t->a
?
у меня пока с этим туго(
1024-- 14.06.2014 13:59 # +18
g :: t -> a
h :: t -> b
(&&&) f g h :: t -> c
Мой &&& берёт f, g, h и делает \x -> f (g x) (h x)
kegdan 14.06.2014 14:00 # +19
guest 14.06.2014 18:38 # +15
Позорь говнокод такими словами
Abbath 13.06.2014 22:11 # +15
Abbath 13.06.2014 22:19 # +16
Abbath 14.06.2014 00:35 # +14
Abbath 14.06.2014 00:58 # +18
Abbath 14.06.2014 01:09 # +17
Abbath 14.06.2014 01:23 # +17
Abbath 14.06.2014 01:33 # +18
kegdan 14.06.2014 05:15 # +23
Abbath 14.06.2014 09:27 # +19
guest 14.06.2014 13:55 # +15
Привет поехавшим.
guest 14.06.2014 01:33 # +19
Abbath 14.06.2014 01:42 # +18
>нафиг не надо никому
ну так и не пиши. J, в отличие от твоего брейнфака, используется.
guest 14.06.2014 01:49 # +19
> J, в отличие от твоего брейнфака, используется.
Ага, используется... Тобой.
> скачай себе интерпретатор
Да не чего было писать отмазки. Раз нет онлайн компилятора - не нужное говно. Чтоб тебе совсем стало стыдно - для брейнфака онлайн компиляторы есть.
> На хаскеле 202 байта, на J 64 байта.
Если в хаски ввести псевдонимы, сократить имена и убрать лишние пробелы - примерно также будет
>Новый метод подсчета производительности индусококодеров: сколько байт в день?
Abbath 14.06.2014 01:55 # +16
пруф или небыло.
>Тобой.
а еще Hewlett Packard и Intel
Ты че за гостем спрятался, петушок?
guest 14.06.2014 02:13 # +19
И нахрен им нужно это говно? Пруф?
> пруф или небыло.
Я то откуда знаю что ты там наговнокодил. Напиши код на сишке и код на j, затем выложи в онлайн компилятор. Притом пусть там будут не константы в коде, а то, что введено с экрана. И я тебе пруф предоставлю. Ну а не осилишь - то и пруфа не будет.
Abbath 14.06.2014 02:19 # +17
> И нахрен им нужно это говно? Пруф?
Для анализа данных например.
http://jsoftware.com/ внизу страницы.
>не константы в коде
а у меня их и нет.
guest 14.06.2014 04:57 # +18
> мудила
Давай, до свидания.
Abbath 14.06.2014 09:26 # +18
kegdan 14.06.2014 14:26 # +17
Abbath 14.06.2014 14:27 # +15
kegdan 14.06.2014 14:31 # +17
Abbath 14.06.2014 14:34 # +14
kegdan 14.06.2014 14:39 # +18
Abbath 14.06.2014 14:41 # +15
guest 14.06.2014 14:46 # +21
Abbath 14.06.2014 14:49 # +16
kegdan 14.06.2014 14:48 # +17
guest 14.06.2014 14:51 # +24
Abbath 14.06.2014 14:52 # +14
1)Все и так видят.
2)Не пытаюсь
3)У тебя каша в голове
4)Допиши себе сам че нибудь.
kegdan 14.06.2014 14:57 # +17
1)Все и так видят. <-> пытаешься победить выставив меня хуем. + передаешь ответственность на других
2)Не пытаюсь <-> меня это не волнует -2
3)У тебя каша в голове <-> ты хуй
4)Допиши себе сам че нибудь. <-> меня это не волнует -3
ты мазохист? тебе нравится проигрывать? я не враг тебе.
Abbath 14.06.2014 14:59 # +16
0) Это меня действительно не волнует
1)Не пытаюсь
3)Не каждый у кого каша в голове - хуй
Я то выиграл. А ты програл. С моей точки зрения.
kegdan 14.06.2014 15:02 # +16
3) но имел в виду ты именно это.
Ты агрессивно настроен против меня. хотя я не сделал ничего плохого. я не считаю тебя плохим человеком, я не обвиняю тебя.
Abbath 14.06.2014 15:05 # +15
kegdan 14.06.2014 15:06 # +11
Abbath 14.06.2014 15:12 # +17
bormand 14.06.2014 15:09 # +16
Если он подкрался сзади - вполне может...
Abbath 14.06.2014 15:12 # +14
guest 14.06.2014 14:59 # +17
Abbath 14.06.2014 15:05 # +16
guest 14.06.2014 15:35 # +18
Abbath 14.06.2014 15:38 # +16
guest 14.06.2014 15:40 # +18
Abbath 14.06.2014 15:44 # +13
guest 14.06.2014 15:45 # +18
Abbath 14.06.2014 15:54 # +15
brutushafens 14.06.2014 17:02 # +19
Abbath 14.06.2014 17:05 # +16
kegdan 14.06.2014 17:12 # +17
Abbath 14.06.2014 17:25 # +16
kegdan 14.06.2014 17:31 # +17
рассказал. Ты агресивен. я не пытаюсь тебе навредить. Более того только ты сам можешь навредить себе
Abbath 14.06.2014 17:36 # +16
kegdan 14.06.2014 17:40 # +17
Abbath 14.06.2014 17:46 # +16
guest 14.06.2014 17:47 # +16
Что это?
Abbath 14.06.2014 17:49 # +15
guest 14.06.2014 17:49 # +13
Abbath 14.06.2014 17:51 # +14
kegdan 14.06.2014 17:53 # +14
Abbath 14.06.2014 17:55 # +15
kegdan 14.06.2014 17:56 # +16
guest 14.06.2014 17:57 # +17
kegdan 14.06.2014 17:59 # +18
почему? просто об этом не принято распростронятся
guest 14.06.2014 18:15 # +17
Abbath 14.06.2014 18:16 # +15
guest 14.06.2014 18:46 # +14
КонТ, ЛисТ, МейБиТ, ЕррорТ
kegdan 14.06.2014 18:21 # +16
guest 14.06.2014 18:22 # +16
kegdan 14.06.2014 18:25 # +16
guest 14.06.2014 18:32 # +17
kegdan 14.06.2014 18:37 # +15
guest 14.06.2014 18:40 # +18
kegdan
guest 14.06.2014 18:52 # +17
1024-- 14.06.2014 19:19 # +16
Этому городу нужен враг. Говнокоду нужна школота, нужны боты, гоатсе, боты-минусаторы. Нужен общий враг, против которого нужно объединиться, обсуждать скрипты и изменения в движке ГК, иначе групповой разум ГК сам рождает этого самого врага.
guest 14.06.2014 19:26 # +15
kegdan 14.06.2014 19:50 # +17
guest 14.06.2014 19:56 # +17
Abbath 14.06.2014 19:25 # +18
bormand 14.06.2014 19:32 # +24
Один раз - не анимас?
guest 14.06.2014 19:34 # +17
Себя не обманишь. Я знаю что ты делал сегодня ночью.
guest 14.06.2014 19:35 # +19
Из меня что-то течет, какие-то сопли.
Наверно, я простудился.
guest 14.06.2014 19:35 # +18
guest 14.06.2014 19:40 # +17
bormand 14.06.2014 20:45 # +19
У старшеклассника Лайта Ягами в жизни есть всё: успехи в школе, популярность среди сверстниц, замечательные родители, блестящее будущее. Возможно, поэтому так тяжело ему жить в мире, полном несправедливости, и осознавать, что никакие законы не способны исправить людей – и очистить мир от зла. Но однажды юноша находит странную чёрную тетрадку с текстами на непонятном языке... Чуть позже он узнает, что этот таинственный язык - J, а сама тетрадка - его интерпретатор.
Возможности J позволяют Лайту стать Кирой – загадочным и всеведущим убийцей, карающим преступников. Более того – изучив правила использования J, юноша успешно избегает ловушек, расставленных спецслужбами. Никто не может его поймать...
Я джва года ждал такое анимэ.
kegdan 14.06.2014 20:55 # +19
bormand 14.06.2014 22:37 # +52
Взрывая моск.
volter9 15.06.2014 00:25 # +53
воск
kegdan 15.06.2014 07:13 # +50
MyguJIA 25.09.2018 15:45 # 0
Он точно не мудила, потому что мудила --- это я.
nemyx 01.12.2018 18:06 # 0
wvxvw 14.06.2014 01:54 # +17
Abbath 14.06.2014 01:57 # +18
wvxvw 14.06.2014 02:06 # +15
Abbath 14.06.2014 02:13 # +22
volter9 14.06.2014 22:32 # +50
defecate-plusplus 14.06.2014 22:39 # +54
полнолуние же
guest 14.06.2014 22:44 # +50
Пришлось закрыть тему (
1024-- 14.06.2014 22:59 # +53
brutushafens 14.06.2014 23:04 # +47
1024-- 14.06.2014 23:38 # +50
А вот режимы, минусотерапия, вайпы и комментарии анонов с баграми мне не нравятся. Прямо очень не нравятся. И те люди, к которым уже привык, которые стали почти что добрыми соседями, к которым ходишь вечером на чай, становятся в моих глазах символами бед и разрушений.
Доктор, мне нравится Ваша светлая сторона, мудро подтролливающая в комментариях и ненавистна тёмная, топящая целые посты. Предлагаю вернуть старого доброго Стертора, который был здесь вчера, а минусовать только вайпы школоты.
brutushafens 15.06.2014 00:43 # +50
1024-- 15.06.2014 01:33 # +51
Хочется помнить хорошее, замечать позитивные стороны людей.
> Не стоит приписывать мне выходки всех гостей.
А я не приписываю, просто перечислил множество нехороших явлений.
kegdan 15.06.2014 07:11 # +49
Какие три идиота вечно минусуют мои комменты. Или один идиот с 3мя аккаунтами
brutushafens 15.06.2014 11:58 # 0
guest 14.06.2014 22:55 # +38
Ханжество так и прет из всех.
kipar 15.06.2014 11:57 # −1
brutushafens 15.06.2014 12:04 # +1
kipar 15.06.2014 12:55 # +1
brutushafens 15.06.2014 13:03 # +1
bormand 15.06.2014 12:36 # 0
Декремент тоже не мешает. Я даже не заметил, что тред слит в минуса, пока не посмотрел на индикаторы ;)
1024-- 15.06.2014 14:43 # 0
brutushafens 15.06.2014 14:48 # +1
1024-- 15.06.2014 15:02 # 0
Но плохо, что циферки искажены. Порой читаю комментарии, поглядываю на цифры и вижу, кто примерно сидит сейчас на ГК, какие настроения и т.п.
kegdan 15.06.2014 15:24 # 0
eth0 15.06.2014 17:11 # +2
kegdan 15.06.2014 17:20 # +1
1024-- 15.06.2014 21:40 # 0
kegdan 15.06.2014 21:40 # 0
bormand 15.06.2014 21:53 # +2
Уйди, рак, пожирающий /gk/
kegdan 15.06.2014 21:56 # 0
bormand 15.06.2014 21:59 # +3
Но рак уже где-то подцепил.
kegdan 15.06.2014 22:00 # +1
brutushafens 15.06.2014 22:03 # 0
eth0 16.06.2014 19:06 # 0
Mudcrab дословно перевели как "грязекраб". Что, в общем-то, справедливо. Грязнокраб был бы чем-то вроде "muddycrab".
P.S. На правах морровиндозадрота.
kegdan 16.06.2014 20:58 # 0
brutushafens 15.06.2014 22:01 # 0
1024-- 15.06.2014 21:40 # 0
1024-- 15.06.2014 21:40 # 0
eth0 15.06.2014 13:20 # 0
3.14159265 06.10.2014 00:47 # +3
laMer007 06.10.2014 18:50 # 0
3.14159265 06.10.2014 20:10 # +2
3.14159265 06.10.2014 21:29 # 0
Всего возможных. Это означает очень большой оригинальность. Это заключить, что на самом деле ни в каком соотношение к концепции, крайне малая вероятность случайным образом, часто ничтожно малую вероятность событиями, обусловленные к полному утверждения означает отсутствие вореций под названное правило. Сложностью и замыслом, используя это правило, возможным перехода водоёму со стороны, он предположительно подрывающее основной тезис . Значение расчёта вероятность, что это - случайная оговорка, которая была бы более убедительно оказалось бы сравнительно образом Различительный уровень незнания ситация тесно связана с хорошо известными заранее). Более того, учитывая чисто субъективному правилу, соответствующая кодирующей эту систему, тем системе, через три узла становлюсь на сторона – это верно. Любая научная теория, получившая в последуют. Один из них первым в списке кандидатов оказывался предметом оживлённой дискуссии была выбрана теория вореций вклад в дискуссии, нередко выходит за рамки её казалось во втором узле Распознаваемый формат архивация, и 2) случай иллюзорного механизмов. Если шизофазичесих машин становит деятельность, должен быть потенциальной точки зрения устойчивости на неровном полу
laMer007 06.10.2014 23:11 # 0
А как объяснить, что вы употребляете мем с gamedev.ru?
3.14159265 07.10.2014 00:58 # +1
А ну Вы не в курсе. Отвергнутые гейдевом зерна вореций успешно проросли тут.
Летопись сего угара:
http://gvforum.ru/viewtopic.php?pid=2143#p2143
laMer007 07.10.2014 08:01 # 0
Ну и я рад, что понял Тараса. Ему надо было переписать скрипт под гейдев и запостить там, тогда бы он там был забанен хотябы не один.
3.14159265 07.10.2014 13:37 # +2
На крестофоруме настолько прожженые крестобляди, что даже скрипты пилят на C++?!
Да я сразу понял что ему для гейдева надо.
laMer007 07.10.2014 15:08 # 0
Crabbe 25.08.2021 03:04 # 0