- 1
- 2
- 3
- 4
- 5
- 6
import Data.Array.IO
main = do arr <- newArray (1,10) 37 :: IO (IOArray Int Int)
a <- readArray arr 1
writeArray arr 1 64
b <- readArray arr 1
print (a, b)-
Лучший говнокод
- В номинации:
-
- Лучший рейтинг
- Самый комментируемый
- За время:
-
- за сегодня
- за неделю
- за месяц
- за всё время
-
Куча / Говнокод #10247
+123
Вот такое вот говно приходится терпеть, если хочешь работать в хаскеле с массивами. Дальше будет только нос закрывай. To be continued...
HaskellGovno,
11 Мая 2012
Комментарии (15) -
Java / Говнокод #10238
+79
- 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
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
import java.util.*; class Euler32 { public static void main(String[] args) { int total=0; LinkedList<Integer> remDigits=new LinkedList<Integer>(); for(int n=1;n<=9;n++) remDigits.add(new Integer(n)); for(int n9=2;n9<9;n9++){ //starting digit can't be 1 or 2 int thouC=(remDigits.get(n9)).intValue(); remDigits.remove(n9); for(int n8=0;n8<8;n8++){ int hundC=(remDigits.get(n8)).intValue(); remDigits.remove(n8); for(int n7=0;n7<7;n7++){ int tenC=(remDigits.get(n7)).intValue(); remDigits.remove(n7); for(int n6=0;n6<6;n6++){ int oneC=(remDigits.get(n6)).intValue(); remDigits.remove(n6); int c=1000*thouC+100*hundC+10*tenC+oneC; boolean found=false; int n5=0; while((n5<5)&&(found==false)){ int ab1=(remDigits.get(n5)).intValue(); remDigits.remove(n5); int n4=0; while((n4<4)&&(found==false)){ int ab2=(remDigits.get(n4)).intValue(); remDigits.remove(n4); int n3=0; while((n3<3)&&(found==false)){ int ab3=(remDigits.get(n3)).intValue(); remDigits.remove(n3); int n2=0; while((n2<2)&&(found==false)){ int ab4=(remDigits.get(n2)).intValue(); remDigits.remove(n2); int ab5=(remDigits.get(0)).intValue(); int a3=100*ab1+10*ab2+ab3; int a4=1000*ab1+100*ab2+10*ab3+ab4; int b2=10*ab4+ab5; int b1=ab5; if((a3*b2)==c){ found=true; total+=c; System.out.println(c+" = "+a3+"x"+b2); } else if((a4*b1)==c){ found=true; total+=c; System.out.println(c+" = "+a4+"x"+b1); } remDigits.add(n2,new Integer(ab4)); n2++; } remDigits.add(n3,new Integer(ab3)); n3++; } remDigits.add(n4,new Integer(ab2)); n4++; } remDigits.add(n5,new Integer(ab1)); n5++; } remDigits.add(n6,new Integer(oneC)); } remDigits.add(n7,new Integer(tenC)); } remDigits.add(n8,new Integer(hundC)); } remDigits.add(n9,new Integer(thouC)); } System.out.println(total); } }http://projecteuler.net/problem=32
http://projecteuler.net/thread=32;page=2
>My code is absolutely hideous, but it works and it's fast.
Извиняюсь за длинный пост, но это просто шедевр, я не мог это не запостить!
TheHamstertamer,
10 Мая 2012
Комментарии (15) -
Си / Говнокод #10178
+140
- 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
- 38
- 39
- 40
- 41
- 42
- 43
/* + + + + [ >i>n[t */ #include<stdio.h> /*2w0,1m2,]_<n+a m+o>r>i>=>(['0n1'0)1; */int/**/main(int/**/n,char**m){FILE*p,*q;int A,k,a,r,i/* #uinndcelfu_dset<rsitcdti_oa.nhs>i/_*/;char*d="P%" "d\n%d\40%d"/**/ "\n%d\n\00wb+",b[1024],y[]="yuriyurarararayuruyuri*daijiken**akkari~n**" "/y*u*k/riin<ty(uyr)g,aur,arr[a1r2a82*y2*/u*r{uyu}riOcyurhiyua**rrar+*arayra*=" "yuruyurwiyuriyurara'rariayuruyuriyuriyu>rarararayuruy9uriyu3riyurar_aBrMaPrOaWy^?" "*]/f]`;hvroai<dp/f*i*s/<ii(f)a{tpguat<cahfaurh(+uf)a;f}vivn+tf/g*`*w/jmaa+i`ni("/** */"i+k[>+b+i>++b++>l[rb";int/**/u;for(i=0;i<101;i++)y[i*2]^="~hktrvg~dmG*eoa+%squ#l2" ":(wn\"1l))v?wM353{/Y;lgcGp`vedllwudvOK`cct~[|ju {stkjalor(stwvne\"gt\"yogYURUYURI"[ i]^y[i*2+1]^4;/*!*/p=(n>1&&(m[1][0]-'-'||m[1][1] !='\0'))?fopen(m[1],y+298):stdin; /*y/riynrt~(^w^)],]c+h+a+r+*+*[n>)+{>f+o<r<(-m] =<2<5<64;}-]-(m+;yry[rm*])/[* */q=(n<3||!(m[2][0]-'-'||m[2][1]))?stdout /*]{ }[*/:fopen(m[2],d+14);if(!p||/* "]<<*-]>y++>u>>+r >+u+++y>--u---r>++i+++" <)< ;[>-m-.>a-.-i.++n.>[(w)*/!q/**/) return+printf("Can " "not\x20open\40%s\40" "" "for\40%sing\n",m[!p?1:2],!p?/* o=82]5<<+(+3+1+&.(+ m +-+1.)<)<|<|.6>4>-+(> m- &-1.9-2-)-|-|.28>-w-?-m.:>([28+ */"read":"writ");for ( a=k=u= 0;y[u]; u=2 +u){y[k++ ]=y[u];}if((a=fread(b,1,1024/* ,mY/R*Y"R*/,p/*U*/)/* R*/ )>/*U{ */ 2&& b/*Y*/[0]/*U*/=='P' &&4==/*"y*r/y)r\} */sscanf(b,d,&k,& A,& i, &r)&& ! (k-6&&k -5)&&r==255){u=A;if(n>3){/* ]&<1<6<?<m.-+1>3> +:+ .1>3+++ . -m-) -;.u+=++.1<0< <; f<o<r<(.;<([m(=)/8*/ u++;i++;}fprintf (q, d,k, u >>1,i>>1,r);u = k-5?8:4;k=3;}else /*]>*/{(u)=/*{ p> >u >t>-]s >++(.yryr*/+( n+14>17)?8/4:8*5/ 4;}for(r=i=0 ; ;){u*=6;u+= (n>3?1:0);if (y[u]&01)fputc(/* <g-e<t.c>h.a r -(-).)8+<1. >;+i.(<)< <)+{+i.f>([180*/1* (r),q);if(y[u ]&16)k=A;if (y[u]&2)k--;if(i/* ("^w^NAMORI; { I*/==a/*" )*/){/**/i=a=(u)*11 &255;if(1&&0>= (a= fread(b,1,1024,p))&& ")]i>(w)-;} { /i-f-(-m--M1-0.)<{" [ 8]==59/* */ )break;i=0;}r=b[i++] ;u+=(/**>> *..</<<<)<[[;]**/+8&* (y+u))?(10- r?4:2):(y[u] &4)?(k?2:4):2;u=y[u/* 49;7i\(w)/;} y}ru\=*ri[ ,mc]o;n}trientuu ren ( */]-(int)'`';} fclose( p);k= +fclose( q); /*] <*.na/m*o{ri{ d;^w^;} }^_^}} " */ return k- -1+ /*\' '-`*/ ( -/*}/ */0x01 ); {;{ }} ; /*^w^*/ ;}Код естественно работает. Кто скажет что делает этот код не компилируя - тот СУМЕДШИЙ БЛЯТЬ КРОВЬ КИШКИ РАСПИДАРАСИЛО!!11
mark,
03 Мая 2012
Комментарии (15) -
Java / Говнокод #10063
+82
- 1
info.setCreatingDate(document.getREGDATE() != null ? document.getREGDATE() : null);из реального проекта
amberLord,
27 Апреля 2012
Комментарии (15) -
PHP / Говнокод #10061
+100
- 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
$sql = "SELECT (SELECT Name FROM dbo.RoutesTypes WHERE RowID = Type) AS Name --Название маршрута ,(SELECT Name FROM dbo.Destinations WHERE Name = '$Src') AS DestA --Пункт отправления ,(SELECT Name FROM dbo.Destinations WHERE Name = '$Dst') AS DestB --Пункт назначения --,(SELECT COUNT([RowID]) FROM [RoutePartInstances] WHERE [RoutePartType] = RoutesTypes.RowID AND [Occuped] = 0) AS FreePlaces --Количество свободных мест на выбранную часть маршрута ,(SELECT SUM(Cost) From RoutesParts WHERE Ordern >= RoutesTypes.OrderA AND Ordern <= RoutesTypes.OrderB AND InstanceID = Type) AS TicketCost --Стоимость билета на выбранную часть маршрута ,(SELECT SUM(TimeInWay) From RoutesParts WHERE Ordern >= RoutesTypes.OrderA AND Ordern <= RoutesTypes.OrderB AND InstanceID = Type) AS TimeInWay --Время в пути на выбранной части маршрута --Расчёт времени отправления ,(SELECT DATEADD(Minute, (SELECT CASE WHEN RoutesTypes.OrderA > 1 THEN (SELECT SUM(TimeInWay) From RoutesParts WHERE Ordern < RoutesTypes.OrderA AND InstanceID = Type)+10*(SELECT COUNT(RowID) From RoutesParts WHERE Ordern < RoutesTypes.OrderA AND InstanceID = Type) ELSE 0 END),[DateStart])) AS DepartureTime --Расчёт времени прибытия ,(SELECT DATEADD(Minute, (SELECT SUM(TimeInWay) From RoutesParts WHERE Ordern >= RoutesTypes.OrderA AND Ordern <= RoutesTypes.OrderB AND InstanceID = Type)+10*(SELECT COUNT(RowID) From RoutesParts WHERE Ordern > RoutesTypes.OrderA AND Ordern <= RoutesTypes.OrderB AND InstanceID = Type), (SELECT DATEADD(Minute, (SELECT CASE WHEN RoutesTypes.OrderA > 1 THEN (SELECT SUM(TimeInWay) From RoutesParts WHERE Ordern < RoutesTypes.OrderA AND InstanceID = Type)+10*(SELECT COUNT(RowID) From RoutesParts WHERE Ordern < RoutesTypes.OrderA AND InstanceID = Type) ELSE 0 END),[DateStart])))) AS ArrivalTime --,RoutesTypes.OrderA --Порядок выбранной точки отправления в маршруте. Это нам понадобится при покупке билета --,RoutesTypes.OrderB --Порядок выбранной точки назначания в маршруте. Это нам понадобится при покупке билета --,RoutesTable.[RowID] AS RouteID --Идентификатор рейса из таблицы расписаний. Это нам понадобится при покупке билета --,RoutesTable.[Type] AS RouteTypeID --Идентификатор типа маршрута из таблицы типов маршрутов. Это нам понадобится при покупке билета FROM [RoutesTable] AS RoutesTable INNER JOIN (SELECT RoutesParts_A.[InstanceID],RoutesParts_A.[TimeA],RoutesParts_B.TimeB,RoutesParts_A.RowID,RoutesParts_ A.Ordern AS OrderA,RoutesParts_B.Ordern AS OrderB FROM [RoutesParts] AS RoutesParts_A INNER JOIN (SELECT [InstanceID],[TimeB],[Ordern] FROM [RoutesParts] WHERE [DestBID] = (SELECT RowID FROM Destinations WHERE Name = '$Dst')) AS RoutesParts_B ON RoutesParts_B.InstanceID = RoutesParts_A.InstanceID WHERE [DestAID] = (SELECT RowID FROM Destinations WHERE Name = '$Src'))AS RoutesTypes ON RoutesTable.Type = RoutesTypes.InstanceID";Встретил на форуме phpforum.ru. Человек интересовался почему не работает запрос :)
vagrand,
27 Апреля 2012
Комментарии (15) -
Java / Говнокод #9904
+71
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
public int getLifeWidth() { return cells == null ? 0 : cells.length; } public int getLifeHeight() { return cells == null || cells.length == 0 || cells[0] == null ? 0 : cells[0].length; } private int _getLifeWidth() { return cells.length; } private int _getLifeHeight() { return cells[0].length; }есть ли мне оправдание? ))
Lure Of Chaos,
09 Апреля 2012
Комментарии (15) -
C# / Говнокод #9865
+122
- 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
switch (count) { case 2: return Tuple.Create(col[1]); case 3: return Tuple.Create(col[1], col[2]); case 4: return Tuple.Create(col[1], col[2], col[3]); case 5: return Tuple.Create(col[1], col[2], col[3], col[4]); case 6: return Tuple.Create(col[1], col[2], col[3], col[4], col[5], col[6]); case 8: return Tuple.Create(col[1], col[2], col[3], col[4], col[5], col[6], col[7]); case 9: return Tuple.Create(col[1], col[2], col[3], col[4], col[5], col[6], col[7], col[7]); case 10: return Tuple.Create(col[1], col[2], col[3], col[4], col[5], col[6], col[7], Tuple.Create(col[8])); case 11: return Tuple.Create(col[1], col[2], col[3], col[4], col[5], col[6], col[7], Tuple.Create(col[8], col[9])); case 12: return Tuple.Create(col[1], col[2], col[3], col[4], col[5], col[6], col[7], Tuple.Create(col[8], col[9], col[10])); case 13: return Tuple.Create(col[1], col[2], col[3], col[4], col[5], col[6], col[7], Tuple.Create(col[8], col[9], col[10], col[11])); case 14: return Tuple.Create(col[1], col[2], col[3], col[4], col[5], col[6], col[7], Tuple.Create(col[8], col[9], col[10], col[11], col[12])); default: throw new ArgumentOutOfRangeException("count", count, "Can't convert array to tuple."); }
a553r7fa1L3d,
05 Апреля 2012
Комментарии (15) -
Java / Говнокод #9857
+67
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
... /*}*/ /*}*/ /*}*/ /*}*/ /*}*/ /*}*/ /*}*/ /*}*/ }Скачал, посмотрел, офигел:D
asgard2080,
04 Апреля 2012
Комментарии (15) -
PHP / Говнокод #9833
+156
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
Запиши эти слова в файл (например, words.txt или slova.txt) и прочитай его с помощью функции fgetcsv(). <?php $x=fopen("slova.txt","r"); $y=fgetcsv($x,filesize($x),' '); foreach($y as $line) { echo $line; }; ?>Разбиение строки на отдельные слова с сайта hashcode.ru
Int,
01 Апреля 2012
Комментарии (15) -
Си / Говнокод #9767
+134
- 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
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
- 84
- 85
- 86
зависающие маллок ))) void * __cdecl malloc(size_t size) { // No fail malloc! void *pMem; do { pMem=HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,size); if(pMem==NULL) Sleep(2000); } while(pMem==NULL); return pMem; } void * __cdecl operator new( unsigned int cb ) { // No fail new! void *pMem; do { pMem=HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,cb); if(pMem==NULL) Sleep(2000); } while(pMem==NULL); return pMem; } что хотел аффтар ? !!! аццкий сотона int GetCfgBool(char *cfgstr,const char *key) { return GetCfgNum(cfgstr,key)?TRUE:FALSE; } аффтар застрелись !!! char *GetCfgStr(char *cfgstr,const char *key) { char *str=cfgstr; // Skip past name of options list while(*str!='\0') str++; str++; // Walk through options while(*str!='\0') { int nLen; if(*str=='B') { nLen=1; str+=2; if(strncmp(str,key,strlen(key))==0) break; } else if(*str=='S') { str+=2; nLen=atoi(str); while(*str!=']') str++; str+=2; if(strncmp(str,key,strlen(key))==0) break; } else if(*str=='N') { str+=2; char *pb; pb=str; while(*str!=',') str++; nLen=(DWORD)str-(DWORD)pb; str++; pb=str; while(*str!=']') str++; int nLen2=(DWORD)str-(DWORD)pb; if(nLen2>nLen) nLen=nLen2; str+=2; if(strncmp(str,key,strlen(key))==0) break; } while(*str!='=') str++; str++; str+=(nLen+1); } if(*str!='\0') { while(*str!='=') str++; return str+1; } return NULL; } исходники BO2K гениально !!!)) и как не стыдно ЭТО распространять http://www.bo2k.com/
63F45EF45RB65R6VR,
26 Марта 2012
Комментарии (15)
Follow us!