Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+134
load 'regex'
f=: 13 : '((+./-.(1 2 3 4{y))+.(0{y))*.(5{y)'
a =: #:i.2^6
b =: f"(1) a
cc =: ":|:(|:a),(|:b)
cc1 =: (32+i.32){cc
cc2 =: (i.32){cc
ccc=:|:(|:cc2),(1 32$'*'),(|:cc1)
ccc=:('\*';'&&') rxrplc"1 (ccc)
(,&'\\ \hline')"1 (' ';' & ')rxrplc"1 (ccc)Вот он, первый говнокод на J
Abbath,
27 Февраля 2014
+155
http://govnokod.reformal.ru/proj/govnokod?ia=613048надеюсь, меня поддержат
Lokich,
26 Февраля 2014
+142
Россия победила в XXII зимних Олимпийских играх.
_Dark_,
23 Февраля 2014
+101
Запилил расширение выкашивающее "коней", "царей" и прочую нечисть.
http://gvforum.ru/viewtopic.php?pid=1911#p1911
Vasiliy,
20 Февраля 2014
+129
data Int = -33554432 | -33554431 | ... |-2 | -1 | 0 | 1 | 2 | 3 | ... | 33554431 | 33554432
LispGovno,
19 Февраля 2014
+127
Переустановил я, значит, Шиндоус 7 (лицуха), ставлю VS 2012
Все встало без проблем, предупреждений и криков о помощи.
При запуске ВНЕЗАПНО всплыло окошко
"Внимание! Данная программа имеет известные проблемы совместимости с данной версией Windows"
Visual Studio 2012 несовместим с семеркой? Ну охуеть теперь.
kegdan,
12 Февраля 2014
+126
-- Подключим нужные библиотеки
-- http://codepad.org/
-- import Control.Exception
import Data.Array
import Data.Ord
import Data.List
import System.Random
import Control.Arrow
import Text.Printf
--Тестовая карта. Можно менять.
testMapList2D = [
" ",
" X X ",
" X XX XX",
"XX X ",
" X X ",
" XX ",
" X ",
" X "]
--Топографические знаки:
void = ' '
wall = 'X'
step = '*'
-- Не удобно без |> из F#. Няшная же функция. Чего её вдруг нет? Не выдержал, добавил.
infixl 0 $>
($>) = flip ($)
-- Получаем карту произвольного размера WxH. Генератор простейший, но впрочем не годен для генерации красивых лабиринтов.
-- Можно использовать для измерения производительности.
generateList2D wh wallFactor seed =
(randomRs (0, 1000) (mkStdGen seed) ::[Float]) $>
map (\randNumber -> if randNumber/1000 > wallFactor then void else wall ) >>>
listToList2D wh
-- Вспомогательные функции
listToList2D (w, h) =
take (w*h) >>>
iterate (drop w) >>>
take h >>>
map (take w)
widthHeightOfList2D l = (length $ head l, length l)
makeArray2D (w, h) values = listArray ((0,0), (h-1, w-1)) values
list2DToArray2D l = makeArray2D (widthHeightOfList2D l) $ concat l
widthHeightOfArray2D a = let (mx, my) = snd $ bounds a in (mx+1, my+1)
putIntoArray2D valueForInsertion a positionsForInsertion = a // (zip positionsForInsertion $ repeat valueForInsertion)
mapPathAdd map_ path = putIntoArray2D step map_ path
generateMap wh wallFactor seed = list2DToArray2D $ generateList2D wh wallFactor seed
outputArray2D a =
elems a $>
listToList2D (widthHeightOfArray2D a) >>>
mapM print -- В самом конце в последней строке функция outputArray2D стала грязной. Поплачем над её участью и идём дальше.
-- Приступим к функции поиска пути findPath.
-- UB findPath при использовании не прямоугольной карты.
-- UB findPath для карт меньше 2x2 точек (из-за реализации getNearestPoint) (из-за лени добавить одну короткую строчку с учетом того что карт таких не бывает обычно).
-- Также использование неподходящих в карте топографичексих знаков не контролируется.
-- Тесты не писал.
{-
Я честно пытался использовать assert в чистом коде, но возможно из-за лени он работает через раз.
В коде выглдяит отвратительно.
Самое не приятное что он не сообщает ничего подробнее чем то, что произошл ассерт. Не номер строки, не описание ошибки, не выражение. Видимо чисто недоделанная стандартная библиотека.
Пытался написать свой ассерт, чтобы хоть какое-то сообщение выдавал. Ну видимо руки кривые сделали ещё ассерт хуже, тк вообще ни разу проверил. Видимо нужны всякие бенги секи и прочее для форсирования ленивых вычислений. Так что даже не стал пытаться.
-}
-- Функция findPath все ещё чиста как слеза младенца.
findPath map_ (sx, sy) (dx, dy) = getPath $ waveField (-1) initialFieldAndYetNotFindedDestinationPoint (dx, dy)
where
wh = widthHeightOfArray2D map_
(w, h) = wh
fieldMax = w*h+1
initialField = makeArray2D wh $ repeat fieldMax
initialFieldAndYetNotFindedDestinationPoint = (initialField, False)
posibleSteps (cx, cy) = [(cx+1, cy), (cx-1, cy), (cx, cy+1), (cx, cy-1)]
isInMapRange (cx, cy) = cx>=0 && cy>=0 && cx<w && cy<h
getNearestPoint field = (minimumBy (comparing (field!))) . (filter isInMapRange) . posibleSteps
getPath (field, True) = (takeWhile (/=(dx,dy)) $ iterate (getNearestPoint field) (sx,sy)) ++ [(dx, dy)]
getPath (field, False) = []
waveField waveDistance waveFieldWithFindResult (cx, cy)
| not $ isInMapRange (cx, cy) = waveFieldWithFindResult
| map_!(cx, cy) == wall = waveFieldWithFindResult
| ((fst waveFieldWithFindResult) ! (cx, cy)) <= waveDistance = waveFieldWithFindResult
| (cx, cy)==(sx, sy) = ((fst waveFieldWithFindResult) // [((cx, cy), waveDistance+1)], True)
| otherwise =
let waveFieldWithFindResult1 = ((fst waveFieldWithFindResult) // [((cx, cy), waveDistance+1)], snd waveFieldWithFindResult) in
foldl (waveField (waveDistance+1)) waveFieldWithFindResult1 $ posibleSteps (cx, cy)
-- Копипасте-бой
pathView map_ mapName sourcePoint destinationPoint = do
let mapInfo = mapName ++ " with size " ++ (show $ widthHeightOfArray2D map_) ++ ":"
print mapInfo
let sd = (sourcePoint, destinationPoint)
printf "Path for %s: " (show sd)
let path = findPath map_ (fst sd) (snd sd)
print path
let mapWithPath = mapPathAdd map_ path
print "Map with path: "
outputArray2D mapWithPath
putStr "\n"
-- Точка входа
main = do
let map1 = list2DToArray2D testMapList2D
pathView map1 "MapFromCode" (0,0) (5,5)
let mapGenerated1 = generateMap (4,4) 0.2 90
pathView mapGenerated1 "MapGenerated1" (0,2) (3,3)
let mapGenerated3 = generateMap (5,5) 0.1 15
pathView mapGenerated3 "MapGenerated3" (0,0) (2,2)
laMer007,
11 Февраля 2014
+127
import std.stdio;
struct Vector
{
private static bool checkOpDispatch(in string str)
{
if(str.length != 4) return false;
foreach(c; str)
{
if(c != 'x' && c != 'y' && c != 'z' && c != 'w') return false;
}
return true;
}
float x,y,z,w;
@property auto opDispatch(string s)() const if(checkOpDispatch(s))
{
return Vector(mixin(s[0..1]),
mixin(s[1..2]),
mixin(s[2..3]),
mixin(s[3..4]));
}
void print() const
{
writefln("Vector: %f, %f, %f, %f", x, y, z, w);
}
}
void main()
{
//vector swizzling
Vector v = {1,2,3,4};
v.print();
auto v1 = v.wzyx;
v1.print();
auto v2 = v.xyxy;
v2.print();
}http://ideone.com/bfA9gI
LispGovno,
10 Февраля 2014
+128
mixin template GenerateAutoDispose()
{
void dispose()
{
foreach_reverse(i,t;this.tupleof)
{
static if(staticIndexOf!(auto_dispose,__traits(getAttributes, this.tupleof[i])) != -1)
{
static if(isArray!(typeof(t)))
{
foreach(t1;t)
{
if(t1 !is null)
{
t1.dispose();
}
}
}
else
{
if(t !is null)
{
t.dispose();
}
}
}
}
}
}http://pastebin.com/2x2k7ngR
LispGovno,
08 Февраля 2014
+129
http://lifenews.ru/news/125806
Последний абзац:
«Подозрение о том, что к созданию вредоносной программы могут быть причастны программисты российской школы, было высказано после того, как специалисты обнаружили, что часть кода вируса написана по-русски.»Это на 1С что ли? :D
TBoolean,
07 Февраля 2014
Follow us!