- 1
(1 until n) flatMap (i => (1 until i) filter (j => isPrime(i+j)) map (j => (i, j)))
Куча говна / Говнокод #16162
0
Скала говна.
Запостил: 
LispGovno,
(Updated )
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
- "PHP" (6228)
- Куча говна (4362)
- Кресты (2940)
- ЙажаСценарий (2225)
- Си диез (2081)
- Jawa (1688)
- Няшная (1341)
- Змея (894)
- Школоло (781)
- mysql_real_escape_string (579)
- Бухгалтерия (547)
- ДействиеСценарий (419)
- Beri bash i ebash (300)
- Яuбy (294)
- Субъективный Си (290)
- =()= (267)
- Школоло (200)
- Сборный (158)
- Метатабличный (91)
- Хламидомонада (75)
- Ябло (Свежее) (49)
- Goвно (37)
- Koko (17)
- HTML (1)
Здраствуйте. Я, guest. Хотел бы чтобы вы сделали игру, 3Д-экшон суть такова... Пользователь может играть лесными эльфами, охраной дворца и злодеем. И если пользователь играет эльфами то эльфы в лесу, домики деревяные набигают солдаты дворца и злодеи. Можно грабить корованы...
Зарегайся на гейдеве и запили.
так?
[1 .. x], ниже же сам юзаешь такую конструкцию...
> y<-xl, z<-xl
Из-за этого выдает (1, 2) и (2, 1). Оригинал так вроде бы не делает.
> foldr (&&) True
Можно заменить на and или all.
Вот здесь можешь искать функции по типам аргументов и результата: http://www.haskell.org/hoogle/
Вводим [Bool] -> Bool и смотрим чего он нам предлагает.
> так?
Ну проверка на простоту совсем уж неоптимальна, но похер. Как первое приближение - сойдет.
так лучше? учусь, нублю, туплю
Вот так тоже можно, чтобы вхолостую не жечь итерации: [(y, z) | y <- [1..x], z <- [1..y], isPrime $ y + z]
Ничего личного, но проверка на простоту - сраное говно. Делает дохрена лишней работы.
даже
[(y, z) | y <- [1..x], z <- [1..$y-1], isPrime $ y + z]
Не делай так, просрешь пару (1, 1).
Тут бы до корешка
Хинт со звездочкой: если число не делится на 3, то и на 6 оно делиться не будет. Поэтому имеет смысл делить не на все подряд, а только на некоторые числа, обладающие определенным свойством.
а производительность не загнется? надо хешировать результаты вычисления IsPrime что бы было быстро
Второй хинт явно про решето Эратосфена
Не, его на иммутабельных структурах не замутить (или замутить?). Х Я имел в виду комбинацию фильтра и кеша.
Я вот так делал:Всего 168 простых чисел в primes позволяют тестить на простоту и разлагать на простые где-то до миллиона.
в качестве бреда
https://ideone.com/hRqBrF
Надо будет сравнить по производительности.
мой код - 0.045s
твой код - 2.612s
Простые числа до 1000000:
мой код - 0.478s
твой код - не дождался
В общем идея не самая удачная ;( Ну и это не совсем решето эратосфена - решето эффективно в основном за счет того, что в нем нету делений.
> почему не замутить? фильтровать и усе
А вот это, кстати, надо попробовать - каскад фильтров, помечающих каждый N'й элемент как False (без деления). Правда памяти дохера сожрет...
Да можно и с вырезанием попробовать, кстати. Завтра с утра подумаю над этим. Идею то ты интересную предложил.
someFunc a a = doSmth
?
только
someFunc a b
|a==b = doSmth
?
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 комп вдвое слабее, судя по таймингам.
Насчет разветвлений - копни в сторону Control.Arrow. Вроде там есть то, что тебе нужно.
оказывается, мой &&& ещё и упростить можно
?
f от двух аргументов
Привет поехавшим.
g::x->t->a
?
у меня пока с этим туго(
g :: t -> a
h :: t -> b
(&&&) f g h :: t -> c
Мой &&& берёт f, g, h и делает \x -> f (g x) (h x)
Позорь говнокод такими словами
Привет поехавшим.
>нафиг не надо никому
ну так и не пиши. J, в отличие от твоего брейнфака, используется.
> J, в отличие от твоего брейнфака, используется.
Ага, используется... Тобой.
> скачай себе интерпретатор
Да не чего было писать отмазки. Раз нет онлайн компилятора - не нужное говно. Чтоб тебе совсем стало стыдно - для брейнфака онлайн компиляторы есть.
> На хаскеле 202 байта, на J 64 байта.
Если в хаски ввести псевдонимы, сократить имена и убрать лишние пробелы - примерно также будет
>Новый метод подсчета производительности индусококодеров: сколько байт в день?
пруф или небыло.
>Тобой.
а еще Hewlett Packard и Intel
Ты че за гостем спрятался, петушок?
И нахрен им нужно это говно? Пруф?
> пруф или небыло.
Я то откуда знаю что ты там наговнокодил. Напиши код на сишке и код на j, затем выложи в онлайн компилятор. Притом пусть там будут не константы в коде, а то, что введено с экрана. И я тебе пруф предоставлю. Ну а не осилишь - то и пруфа не будет.
> И нахрен им нужно это говно? Пруф?
Для анализа данных например.
http://jsoftware.com/ внизу страницы.
>не константы в коде
а у меня их и нет.
> мудила
Давай, до свидания.
1)Все и так видят.
2)Не пытаюсь
3)У тебя каша в голове
4)Допиши себе сам че нибудь.
1)Все и так видят. <-> пытаешься победить выставив меня хуем. + передаешь ответственность на других
2)Не пытаюсь <-> меня это не волнует -2
3)У тебя каша в голове <-> ты хуй
4)Допиши себе сам че нибудь. <-> меня это не волнует -3
ты мазохист? тебе нравится проигрывать? я не враг тебе.
0) Это меня действительно не волнует
1)Не пытаюсь
3)Не каждый у кого каша в голове - хуй
Я то выиграл. А ты програл. С моей точки зрения.
3) но имел в виду ты именно это.
Ты агрессивно настроен против меня. хотя я не сделал ничего плохого. я не считаю тебя плохим человеком, я не обвиняю тебя.
Если он подкрался сзади - вполне может...
рассказал. Ты агресивен. я не пытаюсь тебе навредить. Более того только ты сам можешь навредить себе
Что это?
почему? просто об этом не принято распростронятся
КонТ, ЛисТ, МейБиТ, ЕррорТ
kegdan
Этому городу нужен враг. Говнокоду нужна школота, нужны боты, гоатсе, боты-минусаторы. Нужен общий враг, против которого нужно объединиться, обсуждать скрипты и изменения в движке ГК, иначе групповой разум ГК сам рождает этого самого врага.
Один раз - не анимас?
Себя не обманишь. Я знаю что ты делал сегодня ночью.
Из меня что-то течет, какие-то сопли.
Наверно, я простудился.
У старшеклассника Лайта Ягами в жизни есть всё: успехи в школе, популярность среди сверстниц, замечательные родители, блестящее будущее. Возможно, поэтому так тяжело ему жить в мире, полном несправедливости, и осознавать, что никакие законы не способны исправить людей – и очистить мир от зла. Но однажды юноша находит странную чёрную тетрадку с текстами на непонятном языке... Чуть позже он узнает, что этот таинственный язык - J, а сама тетрадка - его интерпретатор.
Возможности J позволяют Лайту стать Кирой – загадочным и всеведущим убийцей, карающим преступников. Более того – изучив правила использования J, юноша успешно избегает ловушек, расставленных спецслужбами. Никто не может его поймать...
Я джва года ждал такое анимэ.
Взрывая моск.
воск
Он точно не мудила, потому что мудила --- это я.
полнолуние же
Пришлось закрыть тему (
А вот режимы, минусотерапия, вайпы и комментарии анонов с баграми мне не нравятся. Прямо очень не нравятся. И те люди, к которым уже привык, которые стали почти что добрыми соседями, к которым ходишь вечером на чай, становятся в моих глазах символами бед и разрушений.
Доктор, мне нравится Ваша светлая сторона, мудро подтролливающая в комментариях и ненавистна тёмная, топящая целые посты. Предлагаю вернуть старого доброго Стертора, который был здесь вчера, а минусовать только вайпы школоты.
Хочется помнить хорошее, замечать позитивные стороны людей.
> Не стоит приписывать мне выходки всех гостей.
А я не приписываю, просто перечислил множество нехороших явлений.
Какие три идиота вечно минусуют мои комменты. Или один идиот с 3мя аккаунтами
Ханжество так и прет из всех.
Декремент тоже не мешает. Я даже не заметил, что тред слит в минуса, пока не посмотрел на индикаторы 😉
Но плохо, что циферки искажены. Порой читаю комментарии, поглядываю на цифры и вижу, кто примерно сидит сейчас на ГК, какие настроения и т.п.
Уйди, рак, пожирающий /gk/
Но рак уже где-то подцепил.
Mudcrab дословно перевели как "грязекраб". Что, в общем-то, справедливо. Грязнокраб был бы чем-то вроде "muddycrab".
P.S. На правах морровиндозадрота.
Всего возможных. Это означает очень большой оригинальность. Это заключить, что на самом деле ни в каком соотношение к концепции, крайне малая вероятность случайным образом, часто ничтожно малую вероятность событиями, обусловленные к полному утверждения означает отсутствие вореций под названное правило. Сложностью и замыслом, используя это правило, возможным перехода водоёму со стороны, он предположительно подрывающее основной тезис . Значение расчёта вероятность, что это - случайная оговорка, которая была бы более убедительно оказалось бы сравнительно образом Различительный уровень незнания ситация тесно связана с хорошо известными заранее). Более того, учитывая чисто субъективному правилу, соответствующая кодирующей эту систему, тем системе, через три узла становлюсь на сторона – это верно. Любая научная теория, получившая в последуют. Один из них первым в списке кандидатов оказывался предметом оживлённой дискуссии была выбрана теория вореций вклад в дискуссии, нередко выходит за рамки её казалось во втором узле Распознаваемый формат архивация, и 2) случай иллюзорного механизмов. Если шизофазичесих машин становит деятельность, должен быть потенциальной точки зрения устойчивости на неровном полу
А как объяснить, что вы употребляете мем с gamedev.ru?
А ну Вы не в курсе. Отвергнутые гейдевом зерна вореций успешно проросли тут.
Летопись сего угара:
http://gvforum.ru/viewtopic.php?pid=2143#p2143
Ну и я рад, что понял Тараса. Ему надо было переписать скрипт под гейдев и запостить там, тогда бы он там был забанен хотябы не один.
На крестофоруме настолько прожженые крестобляди, что даже скрипты пилят на C++?!
Да я сразу понял что ему для гейдева надо.