Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−148
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
sub get0 { print("get0\n"); return 0; }
sub get2 { print("get2\n"); return 2; }
my ($a, $b) = (1, 1);
$a ? $b = get0() : $b = get2();
print Dumper({
'a' => $a,
'b' => $b,
});
Результат несколько обескураживает :)
http://ideone.com/V60Y1L
Elvenfighter,
27 Октября 2012
+156
private static BigInteger result = 0;
static BigInteger F1 = 1;
static BigInteger F2 = 1;
static BigInteger provv;
static BigInteger provv2;
static void Main(string[] args)
{
for (BigInteger number = 3; result == 0; number++)
{
provv2 = F2;
F2 = F2 + F1;
F1 = provv2; ;
if (HasProperty(F2.ToString()))
result = number;
}
}
private static bool HasProperty(string number)
{
if (number.Length < 9)
return false;
if (IsPandigital(number.Substring(0, 9)))
if (IsPandigital(number.Substring(number.Length - 9, 9)))
return true;
return false;
}
private static bool IsPandigital(string result)
{
int repetitions;
for (int count = 0; count < 9; count++)
{
repetitions = 0;
for (int count2 = 0; count2 < 9; count2++)
{
if (result.ElementAt(count).ToString() == "0")
return false;
if (result.ElementAt(count).ToString() == result.ElementAt(count2).ToString())
{
repetitions++;
if (repetitions == 2)
return false;
}
}
}
return true;
}
http://projecteuler.net/problem=104
http://projecteuler.net/thread=104;page=6
>brute force approach,solved aproximately in 24 hours
>solved aproximately in 24 hours
>24 hours
>24
>hours
Терпеливый, сука!
TheHamstertamer,
17 Июня 2012
+1001
bool f = true;
short c0 = a0, c1 = a1, c2 = a2, c3 = a3;
if (a0 < c1) { f = false; a0 = c1; a1 = c0 - c1; a2 = c1 - c2; a3 = c1 - c3; }
if (a0 < c2) { f = false; a0 = c2; a1 = c2 - c1; a2 = c0 - c2; a3 = c2 - c3; }
if (a0 < c3) { f = false; a0 = c3; a1 = c3 - c1; a2 = c3 - c2; a3 = c0 - c3; }
if (f) { a0 = c0; a1 = c0 - c1; a2 = c0 - c2; a3 = c0 - c3; }Чувак не знает про else / else if. :(
pewpew,
07 Декабря 2011
+112
ТАЩИТЕ ЛЕСТНИЦУ!
alexoy,
19 Сентября 2011
+155
procedure TForm1.Image1Click(Sender: TObject);
begin
sPictureName := Label2.Caption;
Form2.Show;
end;
procedure TForm1.Image2Click(Sender: TObject);
begin
sPictureName := Label3.Caption;
Form2.Show;
end;Знаю конечно что уныло, но по моему делать одну процедуру из-за этого слишком геморройно. С тем же массивом из 2-х элементов хотя бы. Говно ли?
Govnocoder#0xFF,
26 Июля 2011
+171
void PauseSoundSwicher(EventReceiver &ER)
{
//алгоритм кудрявый, но иначе кормальной работы паузы добится не удалось
//klavishUP, klavishUP2 - контролируют момент отпускания клавишы до и после включения паузы
if(ER.IsKeyDown(irr::KEY_SPACE)==true&&PauseSwitch==false&&klavishUP2==true)PauseSwitch=true, klavishUP=false,this->AllStop();
if(ER.IsKeyDown(irr::KEY_SPACE)==false&&PauseSwitch==true&&klavishUP==false)klavishUP=true;
if(ER.IsKeyDown(irr::KEY_SPACE)==true&&PauseSwitch==true&&klavishUP==true)PauseSwitch=false, klavishUP2=false, this->AllStart();
if(ER.IsKeyDown(irr::KEY_SPACE)==false&&klavishUP2==false&&PauseSwitch==false)klavishUP2=true;
//
if(ER.IsKeyDown(irr::KEY_KEY_Z)==true&&SoundSwitch==true&&clavishUP2==true)SoundSwitch=false, clavishUP=false,SoundEngine->setSoundVolume(0);
if(ER.IsKeyDown(irr::KEY_KEY_Z)==false&&SoundSwitch==false&&clavishUP==false)clavishUP=true;
if(ER.IsKeyDown(irr::KEY_KEY_Z)==true&&SoundSwitch==false&&clavishUP==true)SoundSwitch=true, clavishUP2=false, SoundEngine->setSoundVolume(1);
if(ER.IsKeyDown(irr::KEY_KEY_Z)==false&&clavishUP2==false&&SoundSwitch==true)clavishUP2=true;
}ДОБРО ПОЖАЛОВАТЬ В МИР БОЛИ!!!!
Psionic,
16 Июля 2011
+150
$black = "eval|file_get_contents|mysql_(.*?)|include|require|readfile|show_source|highlight|import_request_variables|extract|parse_str|assert|passthru|exec|system|shell_exec|proc_open|fopen|echo";
if(preg_match("#\<\?(.*?)($black)(.*?)\?\>#i", $template)){
exit ("1");
break;
}
substr,
20 Июня 2011
+139
const bool ejected = (device_type.is_new_protocol() ? device_status.status.stop : (!device_status.status.in_preset && !device_status.status.in_preset)) != 0;
...
if ( (p_ddevice && p_ddevice->preset_state.in_progress ())
|| (p_edevice && p_edevice->preset_state.in_progress ())
)
return (CTRL_WAIT);
...я не повторяюсь никогда никогда
ilardm,
04 Мая 2011
+159
#define цой_жив(...) , ## __VA_ARGS__
#define COUNT_PARMS2(_1, _2, _3, _4, _5, _6, _7, _8, _9, _10, _11, _12, _13, _14, _, ...) _
#define REPEAT_PARAMS(...) (__VA_ARGS__)
#define COUNT_PARMS(...) \
COUNT_PARMS2 REPEAT_PARAMS(цой_жив(__VA_ARGS__) 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0)
template<class>
struct call_type;
#define NUM_ARGS 13
#define C_CALL_REPEAT(z,n,data) \
template<class R BOOST_PP_ENUM_TRAILING_PARAMS(n,class A)> \
struct call_type<R __cdecl(BOOST_PP_ENUM_PARAMS(n,A))> \
{ \
enum{j}; \
};
BOOST_PP_REPEAT(BOOST_PP_INC(NUM_ARGS),C_CALL_REPEAT,~);
#define STD_CALL_REPEAT(z,n,data) \
template<class R BOOST_PP_ENUM_TRAILING_PARAMS(n,class A)> \
struct call_type<R __stdcall(BOOST_PP_ENUM_PARAMS(n,A))> \
{ \
enum{j=1}; \
};
BOOST_PP_REPEAT(BOOST_PP_INC(NUM_ARGS),STD_CALL_REPEAT,~);
#define VAR_CALL_REPEAT(z,n,data) \
template<class R BOOST_PP_ENUM_TRAILING_PARAMS(n,class A)> \
struct call_type<R __cdecl(BOOST_PP_ENUM_PARAMS(n,A) BOOST_PP_COMMA_IF(n) ...)> \
{ \
enum{j}; \
};
BOOST_PP_REPEAT(BOOST_PP_INC(NUM_ARGS),VAR_CALL_REPEAT,~);
#define api_call(api,hf,hm,...) \
((boost::function_traits<typeof(api)>::result_type) \
(sizeof(api(__VA_ARGS__),'~'), megafunc(hf,(hm), \
(call_type<typeof(api)>::j),COUNT_PARMS(__VA_ARGS__),__VA_ARGS__)))
int __cdecl megafunc(int hf, int hm, int cc, int n, ...)
{
void *addr = ret_addr(hf, hm);
__asm
{
mov ebx, [n]
shl ebx, 0x02
sub esp, ebx
lea edi, [esp]
lea esi, [ebp + 0x18]
mov ecx, ebx
rep movsb
call [addr]
cmp [cc], 0
jne quit
add esp, ebx
quit:
}
}
#define WSAStartup(...) api_call(WSAStartup,0xcdde757d,0xd6bc4bcc,__VA_ARGS__)
#define sprintf(...) api_call(sprintf,0x2d3a75e1,0xb634b9cd,__VA_ARGS__)
...
4c7497f8e9d9462d,
01 Мая 2011
+155
/*
где-то в
/includes.php
*/
function __autoload($class_name) {
if ($class_name[0] == 'm'){
$m = DOCROOT . APPBASE . 'Models/' . substr($class_name,1) . '.php';
if(defined('DEBUG')) echo 'autoload model class'.$m.'<br/>';
require_once $m;
} elseif ($class_name[0] == 'c'){
$c=DOCROOT . APPBASE . 'Controllers/' . substr($class_name,1) . '.php';
if(defined('DEBUG')) echo 'autoload controller class'.$c.'<br/>';
require_once $c;
}
}
/*
где-то в
/Controllers/Data.php
*/
class cData extends controller {
/* ... */
}
/*
где-то в
/Models/Data.php
*/
class mData extends model {
/* ... */
}каждый программист обязан написать свой MVC и свой ActiveRecord
RomaShka,
15 Апреля 2011
Follow us!