- 1
arr <- return $ map (2*) lst
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+129
arr <- return $ map (2*) lst
Я тут читал раздел на одном форуме по решению задач для школьников и наткнулся на такое говно.
- let?
- Не, не слышал.
Подозреваю, что автор не понял, что let нужно писать без in в монадах, чтобы скомпилировалось.
+50
$submit = $_REQUEST['submit'];
if(isset($submit))
{
$first_name = $_REQUEST['first_name'];
$last_name = $_REQUEST['last_name'];
$address = $_REQUEST['address'];
$city = $_REQUEST['city'];
$country = $_REQUEST['country'];
$state = $_REQUEST['state'];
$zipcode = $_REQUEST['zipcode'];
$phone = $_REQUEST['phone'];
$email = $_REQUEST['email'];
$_SESSION['first_name'] = $first_name;
$_SESSION['last_name'] = $last_name;
$_SESSION['address'] = $address;
$_SESSION['city'] = $city;
$_SESSION['country'] = $country;
$_SESSION['state'] = $state;
$_SESSION['zipcode'] = $zipcode;
$_SESSION['phone'] = $phone;
$_SESSION['email'] = $email;
?>
<meta http-equiv="refresh" content="0;url=https://www.site.com/development1/billing_info.php"/>
<?
exit();
оригинальная обработка сабмита формы и редиректа
+139
switch (!_data.Provider)
{
case true: _currentState = states.DT2F; break;
case false: _currentState = states.DT2P; break;
}
Проверка двух условий
+50
/**
* Что я курил, когда это писал? Почему нельзя было date('H:i:s', $time) ??? +___=
* @param $seconds
* @return string
*/
private static function prettySecondsPrint($seconds){
return str_pad((int)($seconds / 3600), 2, '0', STR_PAD_LEFT)
.':'.str_pad((int)(($seconds % 3600) / 60), 2, '0', STR_PAD_LEFT)
.':'.str_pad($seconds % 60, 2, '0', STR_PAD_LEFT);
}
А это, к сожалению, мое творение) Комменарий приписал когда позже просматривал код и обнаружил это)
+133
string[] res = value.Split("$".ToCharArray(), StringSplitOptions.None);
+128
#!/bin/bash
hl=`cat $1`
wrdl=`cat ~/worlds.txt`
addr=$PWD'/extra_hosts.txt'
rm -f $addr && echo "Deleted host list file "$addr
touch $addr && echo "Created file "$addr
for address in $hl
do
rm $PWD/`basename $address`.txt && echo "Deleted file "$PWD/`basename $address`.txt
done
for address in $hl
do
#echo $address
export address
tmp=$PWD/`basename $address`.txt
trc=$PWD/`basename $address`.tr.txt
mytmp=/tmp/`basename $address`.txt
curl -Ss --retry 2 --trace $trc --tr-encoding --tcp-nodelay $address > $mytmp &
sleep 10s
cat $mytmp \
| grep -e '<a href=\"[^"]*\"' | grep -E -o '[^"]+'\
| grep htm | perl -pe 's/$ENV{address}//'| \
perl -pe 's/^\//$ENV{address}\//' | perl -pe 's/text\/html//'|\
sed -e 's/<[^>]*>//g' -e '/\/http:/d;/^http/p;d;' | sort | uniq >> $addr &
for wrd in `cat ~/worlds.txt`
do
export wrd
cat -b $mytmp\
| sed -e 's/<[^>]*>//g' |grep -i $wrd \
| perl -pe 's/^/$ENV{address}:$ENV{wrd}:/' | tee -a $tmp &
done
done
mkdir -p extra_hosts && echo "Made dir extra_hosts"
cd extra_hosts
$0 $addr
+11
clEnqueueReleaseGLObjects(queue, objects.size(), objects.data(), 9, NULL, NULL);
В целом ничего страшного, но почему на клавиатуре девятка так рядом с нулём?
+53
<?if($arElement["PROPERTIES"]["POSTAV"]["VALUE_ENUM_ID"]==73){?>
<?if($arElement["PREVIEW_PICTURE"]["HEIGHT"]<105){?><div width="115px" height="105px"><?}?>
<a href="<?=$arElement["DETAIL_PICTURE"]["SRC"]?>" class="preview" onclick="return false;" onmousedown="window.location.href='<?=$arElement["DETAIL_PAGE_URL"]?>';"><img src="<?=$arElement["PREVIEW_PICTURE"]["SRC"]?>" width="115" border="0px" alt="<?=$arElement["PREVIEW_PICTURE"]["ALT"]?>" title="<?=$arElement["NAME"]?>"/></a></div>
<?if($arElement["PREVIEW_PICTURE"]["HEIGHT"]<105){?></div><?}?>
<?}else{?>
<a href="<?=$arElement["DETAIL_PICTURE"]["SRC"]?>" class="preview" onclick="return false;" onmousedown="window.location.href='<?=$arElement["DETAIL_PAGE_URL"]?>';"><img src="<?=$arElement["PREVIEW_PICTURE"]["SRC"]?>" width="115" height="105" border="0px" alt="<?=$arElement["PREVIEW_PICTURE"]["ALT"]?>" title="<?=$arElement["NAME"]?>"/></a>
<?}?>
<br>
<?endif?></td>
</tr>
</table></td>
</tr>
</table>
</div>
</td>
<?$cell++;
if($cell%$arParams["LINE_ELEMENT_COUNT"] == 0):?>
</tr>
<?endif?>
<?endforeach; // foreach($arResult["ITEMS"] as $arElement):?>
<?if($cell%$arParams["LINE_ELEMENT_COUNT"] != 0):?>
<?while(($cell++)%$arParams["LINE_ELEMENT_COUNT"] != 0):?>
<?endwhile;?>
</tr>
<?endif?>
</table></div>
<?if($arParams["DISPLAY_BOTTOM_PAGER"]):?>
<br />
<?
$arResult["NAV_STRING"] = str_replace('| <a href="/e-store/rings/diamond.php?bitrix_include_areas=Y&bitrix_show_mode=configure&login=yes&SHOWALL_1=1">Все</a>','',$arResult["NAV_STRING"]);
?>
<?=$arResult["NAV_STRING"]?>
<?endif;?>
+142
program maze;{МАЗЬ}
...
REPEAT UNTIL KEYPRESSED;
...
case {коза} с of:
...
/* FILE NAME : IMAGE.C
* PURPOSE : Fig it knows.
...
*/
BYTE *buf = 0L;
if (!(buf += malloc(WWW * HHH)))
{
printf(" У меня склероз ...\n Press Ctrl-Alt-Del.");
return;
}
for(int C=0;C<n;/*Borland*/C++)
...
Петросянство в школокоде :-\
(+= - чтобы избавиться от варнинга.)
+141
var number = new Random();
if (number.Next(10)%2 == 0)
{...}
else
{...}
Нашёл такой шедевр в индокоде, которые мне дали модернизировать.