По колено в коде — Говнокод.ру

Куча / Говнокод #16162

+89

1

(1 until n) flatMap (i => (1 until i) filter (j => isPrime(i+j)) map (j => (i, j)))

Скала говна.

LispGovno, 13 Июня 2014

Комментарии (198)

ActionScript / Говнокод #16159

−102

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

x = 1;
					x = (x >> 11);
					x = (x + 1);
					x = (x >> 9);
					x = (x + 1);
					x = (x >> 7);
					x = (x + 1);
					x = (x >> 5);
					x = (x + 1);
					x = (x >> 3);
					x = (x + 1);
					x = (x >> 10);
					x = (x + 1);
					x = (x >> 8);
					x = (x + 1);
					x = (x >> 6);
					x = (x + 1);
					x = (x >> 4);
					x = (x + 1);
					x = (x >> 2);
					x = (x + 1);
					if (x == 1)
					{
						ge.ha = true;
					};

из недр не менее изощрённого распковщика обфусцированного xml

makc3d, 13 Июня 2014

Комментарии (5)

Куча / Говнокод #16158

+125

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

// ------------------------------
// config on all machines
akka {
  actor {
   provider = akka.remote.RemoteActorRefProvider
   deployment {
     /greeter {
       remote = akka.tcp://MySystem@machine1:2552
     }
   }
 }
}
 
// ------------------------------
// define the greeting actor and the greeting message
case class Greeting(who: String) extends Serializable
 
class GreetingActor extends Actor with ActorLogging {
  def receive = {
    case Greeting(who) ⇒ log.info("Hello " + who)
 }
}
 
// ------------------------------
// on machine 1: empty system, target for deployment from machine 2
val system = ActorSystem("MySystem")
 
// ------------------------------
// on machine 2: Remote Deployment - deploying on machine1
val system = ActorSystem("MySystem")
val greeter = system.actorOf(Props[GreetingActor], name = "greeter")
 
// ------------------------------
// on machine 3: Remote Lookup (logical home of “greeter” is machine2, remote deployment is transparent)
val system = ActorSystem("MySystem")
val greeter = system.actorSelection("akka.tcp://MySystem@machine2:2552/user/greeter")
greeter ! Greeting("Sonny Rollins")

Где найти такую же няшку под кресты?

laMer007, 13 Июня 2014

Комментарии (11)

1C / Говнокод #16157

−165

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

Для каждого ПараметрыПозиции Из ПараметрыПечати.Позиции Цикл
        ...
	ОбластьДанных.Параметры.Заполнить(ПараметрыПозиции);
	Запрос = Новый Запрос;
	Запрос.Текст =
	"ВЫБРАТЬ
	|	ЦеныНоменклатурыСрезПоследних.Цена,
	|	ЦеныНоменклатурыСрезПоследних.Номенклатура
	|ИЗ
	|	РегистрСведений.ЦеныНоменклатуры.СрезПоследних КАК ЦеныНоменклатурыСрезПоследних
	|ГДЕ
	|	ЦеныНоменклатурыСрезПоследних.ТипЦен = &ТипЦен
	|	И ЦеныНоменклатурыСрезПоследних.Номенклатура = &Номенклатура";
	Запрос.УстановитьПараметр("ТипЦен",Справочники.ТипыЦенНоменклатуры.НайтиПоКоду("000000001"));
	Запрос.УстановитьПараметр("Номенклатура",ПараметрыПозиции.Номенклатура);
	Цена = Запрос.Выполнить().Выбрать();
	Цена.Следующий();
	Если Цена.Цена <> Неопределено Тогда
		ОбластьДанных.Параметры.Цена = Цена.Цена;
		Если ЗначениеЗаполнено(ПараметрыПозиции.КфМест) Тогда  
			ОбластьДанных.Параметры.ЦенаМеста = Цена.Цена * ПараметрыПозиции.КфМест;
		КОнецЕсли;
		СумИтог = СумИтог + Цена.Цена * ПараметрыПозиции.Количество;
		ОбластьДанных.Параметры.Сумма = Цена.Цена * ПараметрыПозиции.Количество;
	КонецЕсли;
	ТабДокумент.Присоединить(ОбластьДанных);

КонецЦикла;

Прям классика жанра) Запрос в цикле, и условие к виртуальной таблице регистра сведений)

adc5, 13 Июня 2014

Комментарии (7)

PHP / Говнокод #16155

+159

1
2
3
4
5
6
7

<?
$arr = array(2,1,1,1,1);
echo $arr[rand(0,count($arr)-1)];
/*вероятность двойки 20%, 5 чисел = 100%, 1 число = 20%. Так и делается, ничего не говнокод.
И в других языках по этому же принципу.
*/
?>

Человек спросить, как сделать псевдорандом с вероятностью выпадения числа в 20 процентов. Вот что ему ответили.

timurkin, 12 Июня 2014

Комментарии (48)

Java / Говнокод #16153

+68

1
2
3
4
5
6
7

int k = 50;
while (true){
    i = i + i;
    System.out.println(i);
    k--;
    if (k<0) break;
}

http://stackoverflow.com/questions/24173463/why-does-i-i-i-give-me-0

evg_ever, 12 Июня 2014

Комментарии (23)

PHP / Говнокод #16152

+156

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100

$currentId = $modx->resource->get('id');
$parentIds = $modx->getParentIds($currentId);
if($currentId == 1){
  $chunk = $modx->getObject('modChunk',array(
   'name' => 'footer_seo_text_main_page',
  ));
}elseif($currentId == 3 ){
  $chunk = $modx->getObject('modChunk',array(
   'name' => 'footer_seo_text_studios_main',
  ));
}elseif($currentId == 2){
  $chunk = $modx->getObject('modChunk',array(
   'name' => 'footer_seo_text_bazy_main',
  ));
}elseif($currentId == 4 ){
  $chunk = $modx->getObject('modChunk',array(
   'name' => 'footer_seo_text_dancehalls_main',
  ));
}elseif($currentId == 19 ){
  $chunk = $modx->getObject('modChunk',array(
   'name' => 'footer_seo_koz',
  ));
}elseif($currentId == 6 ){
  $chunk = $modx->getObject('modChunk',array(
   'name' => 'footer_seo_ale',
  ));
}elseif($currentId == 17 ){
  $chunk = $modx->getObject('modChunk',array(
   'name' => 'footer_seo_pav',
  ));
}elseif($currentId == 20 ){
  $chunk = $modx->getObject('modChunk',array(
   'name' => 'footer_seo_sav',
  ));
}elseif($currentId == 59 ){
  $chunk = $modx->getObject('modChunk',array(
   'name' => 'footer_seo_il',
  ));
}elseif($currentId == 16 ){
  $chunk = $modx->getObject('modChunk',array(
   'name' => 'footer_seo_1905',
  ));
}elseif($currentId == 18 ){
  $chunk = $modx->getObject('modChunk',array(
   'name' => 'footer_seo_heb',
  ));
}elseif($currentId == 84 ){
  $chunk = $modx->getObject('modChunk',array(
   'name' => 'footer_seo_ab',
  ));
}elseif($currentId == 27 ){
  $chunk = $modx->getObject('modChunk',array(
   'name' => 'footer_seo_z_1905',
  ));
}elseif($currentId == 28 ){
  $chunk = $modx->getObject('modChunk',array(
   'name' => 'footer_seo_z_il',
  ));
}elseif($currentId == 58 ){
  $chunk = $modx->getObject('modChunk',array(
   'name' => 'footer_seo_z_koz',
  ));
}elseif($currentId == 26 ){
  $chunk = $modx->getObject('modChunk',array(
   'name' => 'footer_seo_z_ar',
  ));
}elseif($currentId == 25 ){
  $chunk = $modx->getObject('modChunk',array(
   'name' => 'footer_seo_z_pav',
  ));
}elseif($currentId == 24 ){
  $chunk = $modx->getObject('modChunk',array(
   'name' => 'footer_seo_z_sav',
  ));
}elseif($currentId == 23 ){
  $chunk = $modx->getObject('modChunk',array(
   'name' => 'footer_seo_z_sav2',
  ));
}elseif($currentId == 22 ){
  $chunk = $modx->getObject('modChunk',array(
   'name' => 'footer_seo_z_baum',
  ));
}elseif($currentId == 21 ){
  $chunk = $modx->getObject('modChunk',array(
   'name' => 'footer_seo_z_shab',
  ));
}elseif($currentId == 86 ){
  $chunk = $modx->getObject('modChunk',array(
   'name' => 'footer_seo_z_dobr',
  ));
}elseif($currentId == 5 ){
  $chunk = $modx->getObject('modChunk',array(
   'name' => 'footer_seo_prokat',
  ));
}else{
  $chunk = $modx->getObject('modChunk',array(
   'name' => 'footer_seo_text',
  ));
}
return $chunk->process();

Еле уложился в 100 строк, пришлось комментарии резать.

savva-paladin, 12 Июня 2014

Комментарии (35)

Java / Говнокод #16150

+174

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22

/*Caused by: java.lang.StackOverflowError
    at com.sun.org.apache.xalan.internal.xsltc.dom.SimpleResultTreeImpl.characters(SimpleResultTreeImpl.java)
    at com.sun.org.apache.xalan.internal.xsltc.dom.SimpleResultTreeImpl.copy(SimpleResultTreeImpl.java:438)
    at com.sun.org.apache.xalan.internal.xsltc.runtime.BasisLibrary.copy(BasisLibrary.java:1317)
    at GregorSamsa.replace()
    at GregorSamsa.replace()
    at GregorSamsa.replace()
    at GregorSamsa.replace()
    at GregorSamsa.replace()
  начали разбираться
*/
    /** 
     * As Gregor Samsa awoke one morning from uneasy dreams he found himself
     * transformed in his bed into a gigantic insect. He was lying on his hard,
     * as it were armour plated, back, and if he lifted his head a little he
     * could see his big, brown belly divided into stiff, arched segments, on
     * top of which the bed quilt could hardly keep in position and was about
     * to slide off completely. His numerous legs, which were pitifully thin
     * compared to the rest of his bulk, waved helplessly before his eyes.
     * "What has happened to me?", he thought. It was no dream....
     */
    protected final static String DEFAULT_TRANSLET_NAME = "GregorSamsa";

http://grepcode.com/file/repository.grepcode.com/java/root/jdk/openjdk/6-b14/com/sun/org/apache/xalan/internal/xsltc/trax/TransformerFactoryImpl.java
transofm, factory, bug - какие начитанные разработчки, а.

3.14159265, 12 Июня 2014

Комментарии (3)

Говнокод: по колено в коде.