Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−117
declare
v_bonus_account NUMBER;
v_MSISDN VARCHAR2(32);
l_app NUMBER;
v_Result NUMBER;
v_Message VARCHAR2(2000);
var_MSISDN VARCHAR2(32);
v_Event VARCHAR2(32);
v_Amount NUMBER;
o_err VARCHAR2(2000);
BEGIN
/* Activate service */
v_Result := wpt.bp_services.add_service
( i_app => v_MSISDN,
i_srv => 400714,
o_err => v_Message,
to_date('30/12/2012','DD/MM/YYYY')
);
END;
Локализовал код, вызывающий функцию биллинга у арабов, предложенный ими же. И который не компилится.
В ответ получаю кучу дописок с вызовами других функций, которые ко всему этому не имеют никакого отношения.
Как убедить пидарасов в том, что ошибки компиляции и ошибки времени исполнения - это как бы совсем разные вещи?
А то третья неделя уже идёт...
SadKo,
26 Ноября 2012
+46
...
//----------------------------------@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
//обработка картинки для анонса
$model->preview_picture = CUploadedFile::getInstance($model, 'preview_picture');
//убедимся что каталоги созданы
if (@mkdir($curr_month_folder, 0777))
chmod($curr_month_folder, 0777);
if (@mkdir($img_dir, 0777))
chmod($img_dir, 0777);
if (@mkdir($img_dir_thumbs, 0777))
chmod($img_dir_thumbs, 0777);
if (@mkdir($temp_img_dir_base, 0777))
chmod($temp_img_dir_base, 0777);
if (@mkdir($temp_img_dir, 0777))
chmod($temp_img_dir, 0777);
if (@mkdir($temp_img_dir_snap, 0777))
chmod($temp_img_dir_snap, 0777);
//если картинка для анонса не передана
if (!$model->preview_picture) {
//проверяем не была ли она загружена ранее во временую папку
if ($form->model->image) {
$model->preview_picture = $form->model->image;
}
//а нет так нет
} else
...
форматирование сохранено.
Вообще весь кусок около 500 строк, а и эти 500 откопипизжены еще
в 7 методов этого класса.
...за что мне все это
Razban_Guestov,
26 Ноября 2012
−108
# For bash and ksh, we can use faster builtin routines to do manipulation,
# otherwise (ash) fall back to slower method using `expr'.
# The extra level of indirection using `eval' is necessary a) for ksh, and
# b) to get past ash.
if [ "$RANDOM" != "$RANDOM" ]
then
math () {
eval echo "\$(($*))"
}
index () { # index string c
eval "I=\${1%$2*}"
eval echo "\${#I}"
}
...
else
math () {
expr "$@"
}
index () { # index string c
expr $1 : ".*$2" - 1
}
...
fiОтличный способ определения шелла из старослакварского /dev/MAKEDEV.
bormand,
26 Ноября 2012
+133
#include<stdio.h>
#include<math.h>
int main()
{
long long a1,a2,a3,a4,t,p,l,m1,m,d1,d2,d3,d4,c1,c2,c3,c4,n,r;
double po;
m=1000000006;
scanf("%lld",&t);
while(t--)
{scanf("%lld",&n);
a1=1;a2=1;a3=1;a4=0;
d1=1;d2=0;d3=0;d4=1;
p=n-2;
while(p>0)
{ if(p%2!=0)
{ c1=((d1*a1)%m+(d3*a3)%m);
c2=((d1*a2)%m+(d2*a4)%m);
c3=((d3*a1)%m+(d4*a3)%m);
c4=((d3*a2)%m+(d4*a4)%m);
d1=c1;d2=c2;d3=c3;d4=c4;
}
c1=((a1*a1)%m+(a2*a3)%m);
c2=((a1*a2)%m+(a2*a4)%m);
c3=((a3*a1)%m+(a4*a3)%m);
c4=((a3*a2)%m+(a4*a4)%m);
a1=c1;a2=c2;a3=c3;a4=c4;
p=p/2;
}
l=((d1*1)%m+(d2*1)%m)%m;m1=((d3*1)%m+(d4*1)%m)%m;
po=pow(2,l);
r=llrintl(po)%(m+1);
printf("%lld\n",r);
}
return 0;
}
Fai,
26 Ноября 2012
−1050
- (void) closeApp {
int closer = 1 / 0;
}
Закрываем программу легкой арифметикой.
Найдено в рабочем проекте.
itruf,
25 Ноября 2012
+120
<style>
.pitalic {
font-style:italic;
}
</style>
<p class = 'pitalic'>блаблабла</p>прям новый супергерой...
Snickers,
25 Ноября 2012
+124
samples = [(1,14),(2,-66),(3,-414),(4,-1180),(5,-2370),(6,-3726),(7,-4606),(8,-3864),(9,270)]
-- Бесконечная система уравнений для МНК
system s = zip (matrix s) (column s) where
matrix = iterate tail . foldr1 (zipWith (+)) . map (\(x,y) -> iterate (*x) 1)
column = foldr1 (zipWith (+)) . map (\(x,y) -> iterate (*x) y)
-- Сведение бесконечной системы к треугольному виду (первый шаг гаусса)
triangle (eq:eqs) = (eq : triangle (map (sub eq) eqs)) where
sub eq1@(a1:as, ae) eq2@(b1:bs, be) = (zipWith f as bs, f ae be) where
f a b = b - a * b1 / a1
-- Вычисление иксов (второй шаг гаусса)
calcX n = foldr calc [] . take n where
calc (a:as, b) xs = ((b - sum (zipWith (*) as xs)) / a : xs)
-- метод наименьших квадратов
mnk n = reverse . calcX n . triangle . system
Метод наименьших квадратов.
http://ideone.com/CsD0ku
bormand,
25 Ноября 2012
+125
splitOn :: (a -> Bool) -> [a] -> [[a]]
splitOn _ [] = []
splitOn f xs = removeEmpty $ takeWhile (not . f) xs: splitOn f (dropWhile (f) $ dropWhile (not . f) xs) where
removeEmpty [] = []
removeEmpty (x:xs)
| null x = removeEmpty xs
| otherwise = x: removeEmpty xs
words' :: String -> [String]
words' = splitOn (flip elem " \n\r\f\t\v\160")Еще один words'
Fai,
25 Ноября 2012
−100
size = 3
lines = ["___", "bcd", "___"]
board = [[None]*size]*size
for x in range(0, size):
for y in range(0, size):
if lines[x][y] != '_':
board[x][y] = lines[x][y]
print(board)
я бы, очевидно, хотел видеть результат:
[[None, None, None], ['b', 'c', 'd'], [None, None, None]]
но питоша выводит:
[['b', 'c', 'd'], ['b', 'c', 'd'], ['b', 'c', 'd']]
serpinski,
24 Ноября 2012
+133
#include <math.h>
...
result = (thisCos ? cos : sin)(3.140);Коллега занимается инновациями в Сколково, так они там изобрели операцию NOT на континууме.
serpinski,
24 Ноября 2012
Follow us!