Куча — Говнокод.ру

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

0

1
2
3
4
5
6

parent = Folder.get_parent->do
while not [parent is null] : {
    current = parent
    parent  =  Folder.get_parent->do
    break
}

так вот ищут корневую папку

_a_o_O, 15 Февраля 2016

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

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

−2

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15

type Speaker interface {
    SayHello()
}

type Human struct {
    Greeting string
}

func (Human) SayHello() {
    fmt.Println("Hello")
}
...
var s Speaker
s = Human{Greeting: "Hello"}
s.SayHello()

Отсюда: https://habrahabr.ru/post/276981/

Abbath, 10 Февраля 2016

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

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

−2

1
2
3
4
5
6
7

{{#ifexpr:{{{1|0}}}<=1|{{ {{{2|}}}|{{#expr:{{{1|1}}}+{{{3}}} }} }}|{{Numbered sequence/1|{{#expr:floor ({{{1|0}}}/2)}}|{{{2|}}}|{{{3}}} }}{{Numbered sequence/1|{{#expr:-floor (-{{{1|0}}}/2)}}|{{{2|}}}|{{#expr:floor ({{{1|0}}}/2)+{{{3}}} }} }} }}

{{#ifexpr:{{{1|0}}}<=1|{{ {{{2|}}}|{{#expr:{{{1|1}}}+{{{3}}} }} }}|{{Numbered sequence/2|{{#expr:floor ({{{1|0}}}/2)}}|{{{2|}}}|{{{3}}} }}{{Numbered sequence/2|{{#expr:-floor (-{{{1|0}}}/2)}}|{{{2|}}}|{{#expr:floor ({{{1|0}}}/2)+{{{3}}} }} }} }}
...
{{#ifexpr:{{{1|0}}}<=1|{{ {{{2|}}}|{{#expr:{{{1|1}}}+{{{3}}} }} }}|{{Numbered sequence/9|{{#expr:floor ({{{1|0}}}/2)}}|{{{2|}}}|{{{3}}} }}{{Numbered sequence/9|{{#expr:-floor (-{{{1|0}}}/2)}}|{{{2|}}}|{{#expr:floor ({{{1|0}}}/2)+{{{3}}} }} }} }}

{{#ifexpr:{{{1|0}}}<=1|{{ {{{2|}}}|{{#expr:{{{1|1}}}+{{{3}}} }} }}|<span style="color:red">Превышено количество включений — 1024</span>}}

Циклы нельзя, никаких переменных нельзя, только параметры. Казалось бы, ничего страшного — так и рекурсии тоже нельзя!

tucvbif, 29 Января 2016

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

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

+1

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

-- Few Scum
import Data.Char
import Text.Read
import Control.Applicative
import Data.Ratio
import Numeric
import Data.List
import Data.Maybe
data Token
    =TLetter Char
    |TNumf Rational
    |TOp Char
    |LBrace
    |RBrace
    deriving (Show, Eq)
data Expr
    =Letter Char
    |Numf Rational
    |Op Char Expr Expr
    |Diff Expr
instance Show Expr where
    show (Letter c)     = [c]
    show (Op c el er)   = '(' : show el ++ ')' :
        c : '(' : show er ++ ")"
    show (Numf v)       = show $ toDouble v
    show (Diff e)       = '(' : show e ++ ")'"

toDouble r = fromRational r :: Double
readUnsignedRationalMaybe f = getParseResult $ parseValue f where
    parseValue f = {- readSigned -} readFloat f :: [(Rational, String)]
    getParseResult [(value, "")] = Just value
    getParseResult _ = Nothing

-- Разбиваем строку на элементы, возаращает перевернутый список токенов
tokenize ""                     = Nothing
tokenize sourceExpressionString = tok [] sourceExpressionString where
    tok [] (c:s)
        | c == '-'                  = tok [TOp '-', TNumf 0] s
    tok r@(LBrace:_) (c:s)
        | c == '-'                  = tok (TOp '-':TNumf 0:r) s
    tok r (c:s)
        | c == '('                  = tok (LBrace:r) s
        | c == ')'                  = tok (RBrace:r) s
        | isLetter c                = tok (TLetter c:r) s
        | isOperation c             = tok (TOp c:r) s
        | isNumber c                = parseNumf r (c:s)
    tok r ""                        = Just r
    tok resultParsedTokens sourceExpressionString = Nothing
    isOperation     = (`elem` "+-*/")
    isNumf c        = isNumber c || c == '.'
    parseNumf r s   = maybeNumber >>= makeResult where
        (numberString, tail) = span isNumf s
        maybeNumber = readUnsignedRationalMaybe numberString--readMaybe numberString
        makeResult number = tok (TNumf number:r) tail

-- Дерево выражений из списка токенов
parse reversedTokens             = reversedTokens >>= makeTree where
    priorityOps         = ["+-","/*"]
    subExpr             = splitIntoOperationAndSubExpressions
    splitIntoOperationAndSubExpressions reversedTokens =
        id =<< find isJust (map (findOp reversedTokens [] 0) priorityOps)
    findOp (LBrace:_) _ 0 _         = Nothing -- dont checked on left expression, probably can safety removed
    findOp (RBrace:l) r b ops       = findOp l (RBrace:r) (b+1) ops
    findOp (LBrace:l) r b ops       = findOp l (LBrace:r) (b-1) ops
    findOp (TOp c:l) r 0 ops
        | c `elem` ops              = Just (c, l, reverse r)
        | otherwise                 = findOp l (TOp c:r) 0 ops
    findOp leftSubExpression [] b operationsForFind
        | b > 0                     = Nothing
    findOp (c:l) r b ops            = findOp l (c:r) b ops
    findOp [] rightSubExpression braceAmount operationsForFind = Nothing
    makeTree reversedTokens     = mt reversedTokens $ subExpr reversedTokens
    mt t@(RBrace:tt) Nothing
        | last t == LBrace      = mt (init tt) $ subExpr (init tt)
    mt [TLetter v] Nothing      = Just $ Letter v
    mt [TNumf v] Nothing        = Just $ Numf v
    mt _ Nothing                = Nothing
    mt _ (Just (o, l, r))       = makeOperationExpression leftExpressionTree rightExpressionTree o where
        leftExpressionTree          = mt l $ subExpr l
        rightExpressionTree         = mt r $ subExpr r
        makeOperationExpression = moe
        moe Nothing _ _         = Nothing
        moe _ Nothing _         = Nothing
        moe (Just leftExpressionTree) (Just rightExpressionTree) operation = Just $ Op operation leftExpressionTree rightExpressionTree

-- Простейшее упрощение выражений
firstSimplify e     = simplifyTreeHeightTimes <$> e where
    stepSimplify = fs
    fs (Op '*' e (Numf 1))           = e
    fs (Op '*' (Numf 1) e)           = e
    fs (Op '+' e (Numf 0))           = e
    fs (Op '+' (Numf 0) e)           = e
    fs (Op '/' e (Numf 1))           = e
    fs (Op '-' e (Numf 0))           = e
    fs (Op '*' (Numf 0) _)           = Numf 0
    fs (Op '*' _ (Numf 0))           = Numf 0
    fs (Op '/' (Numf 0) _)           = Numf 0
    fs (Op '/' (Letter l) (Letter r))
        | l == r                     = Numf 1
    fs (Op '-' (Letter l) (Letter r))

Новая Специальная Олимпиада объявляется открытой.

https://ideone.com/Bottp0

Реализовать поиск производной по выражению на любом языке. У кого получится компактнее, правильнее и больше функционала, тот и победил. Заявлять кандидата в победители (код и его автора) можно несколько раз если код улучшил или написал на другом языке. Призов, кроме почета и приятного времяпрепровождения, - не будет

Если кто-то что-нибудь поломает, то я буду очень рад.

Пока упрощение не работает на полную катушку и из функций производных только +-*/

Мой друг обещает ещё версию на крестах подогнать.

laMer007, 26 Января 2016

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

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

0

1
2
3
4

wire tsun = clk | (~dere);
wire dere = clk | (~tsun);

always @(posedge clk) rnd <= dere;

Интересно, будет ли этот код работать как TRNG?

P.S. Узнаем на выходных, когда приедет Циклоняшка.

bormand, 25 Января 2016

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

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

−2

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

/* Базовые стили, изменять не нужно */
html,
body {
    margin: 0;
    padding: 0;
}

body {
    width: 520px;
    min-height: 270px;
    padding: 20px;
    font-size: 14px;
    line-height: 1.5;
    font-family: Arial, sans-serif;
    color: white;
    background-color: #3a78a1;
    background-image: url("/assets/course9/grid.png");
    background-repeat: repeat;
    background-position: -80px -80px;
}

/* Cтили, которые можно изменять */
.column {
    margin-bottom: 10px;
    padding: 10px;
    background: rgba(0, 255, 255, 0.2);
    border: 2px solid white;
    display:inline-block;
    vertical-align:top;
    width:78px;
    margin-right:10px;
}
.row {
    display:table-row;
    }
.cell {
    padding: 5px 10px;
    background: rgba(0, 255, 255, 0.2);
    border: 2px solid white;
    display:table-cell;
    width:96px;
}
.table {
    display:table;
}
.col-3 {
    display:none;
    }

Помощь по 23 заданию блока "Блочная модель документа"

sanek937, 24 Января 2016

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

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

+1

1
2

halve :: [a] -> ([a], [a])
halve xs = (\xs mf -> (take (mf xs) xs, drop (mf xs) xs)) xs (\l -> (div (length l) 2))

делим список пополам
ЧЯДНТ?

schwrzwldr_gbln, 17 Января 2016

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

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

+3

1

Поднял форум.  Запилил чатик.

Теперь можно грабить корованы чмокать всех в чатике.

Vasiliy, 16 Января 2016

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

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

+3

1

.main_page_desktop .menu_home .menu_home_banner .catalog_home_banner .catalog__product:nth-child(1) a:hover .catalog__product_img:after {width: 40%;left: 27%;}

Верстаем по методологии БЭМ, не разобрашись в сути

AntonMMF, 25 Декабря 2015

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

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

+4

01
02
03
04
05
06
07
08
09
10
11

<font size="2" face="Courier New" color="black"><font color="#0000ff"><</font><font
color="#800000">video</font><font color="#0000ff">></font>   <font
color="#0000ff"><</font><font color="#800000">source</font> <font
color="#ff0000">src</font><font color="#0000ff">="movie.mp4"</font> <font
color="#ff0000">type</font><font color="#0000ff">='video/mp4; codecs="avc1.42E01E,
mp4a.40.2"'</font> <font color="#0000ff">/></font>   <font color="#0000ff"><</font><font
color="#800000">source</font> <font color="#ff0000">src</font><font
color="#0000ff">="movie.webm"</font> <font color="#ff0000">type</font><font
color="#0000ff">='video/webm; codecs="vp8, vorbis"'</font> <font color="#0000ff">
/></font> <font color="#0000ff"></</font><font color="#800000">video</font><font
color="#0000ff">></font></font>>

«Итак, чтобы видео появилось на вашей веб-страничке пишем следующий код»

KEKC, 23 Декабря 2015

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

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