- 1
- 2
- 3
- 4
- 5
data Trivalent = TriFalse | TriUnknown | TriTrue deriving (Show, Eq, Ord)
(&) :: Trivalent -> Trivalent -> Trivalent -- &&
(!) :: Trivalent -> Trivalent -> Trivalent -- ||
nt :: Trivalent -> Trivalent -- not
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+124
data Trivalent = TriFalse | TriUnknown | TriTrue deriving (Show, Eq, Ord)
(&) :: Trivalent -> Trivalent -> Trivalent -- &&
(!) :: Trivalent -> Trivalent -> Trivalent -- ||
nt :: Trivalent -> Trivalent -- not
В хасскеле нет класса для логических значений. А значит хрен переопределишь операторы &&, || и функцию not
+140
int next_id() {
static int id = 0;
__sync_add_and_fetch(&id, 1);
return id;
}
"Атомарная" раздача айдишек.
+131
> Как удалить smoke1 из массива fx
delete fx+2;
http://www.gamedev.ru/code/forum/?id=165389
+55
<?php
/**
* Определение знака зодиака
* автор: Nc_Soft
* 12.01.09
*/
//массив для сравнений
$zodiak=array(
'Oven'=>'Овен',
'Taurus'=>'Телец',
'Gemini'=>'Близнецы',
'Cancer'=>'Рак',
'Leo'=>'Лев',
'Virgo'=>'Дева',
'Libra'=>'Весы',
'Scorpion'=>'Скорпион',
'Sagittarius'=>'Стрелец',
'Capricorn'=>'Козерог',
'Aquarius'=>'Водолей',
'Fish'=>'Рыбы'
);
//функция опеределения
function zodiak($d,$m) {
$d=sprintf('%02d',$d);
$m=sprintf('%02d',$m);
if (($m=='03' AND $d>20) OR ($m=='04' AND $d<21)) return 'Oven';
if (($m=='04' AND $d>20) OR ($m=='05' AND $d<22)) return 'Taurus';
if (($m=='05' AND $d>21) OR ($m=='06' AND $d<22)) return 'Gemini';
if (($m=='06' AND $d>21) OR ($m=='07' AND $d<23)) return 'Cancer';
if (($m=='07' AND $d>22) OR ($m=='08' AND $d<24)) return 'Leo';
if (($m=='08' AND $d>23) OR ($m=='09' AND $d<24)) return 'Virgo';
if (($m=='09' AND $d>23) OR ($m=='10' AND $d<24)) return 'Libra';
if (($m=='10' AND $d>23) OR ($m=='11' AND $d<23)) return 'Scorpion';
if (($m=='11' AND $d>22) OR ($m=='12' AND $d<22)) return 'Sagittarius';
if (($m=='12' AND $d>21) OR ($m=='01' AND $d<19)) return 'Capricorn';
if (($m=='01' AND $d>20) OR ($m=='02' AND $d<19)) return 'Aquarius';
if (($m=='02' AND $d>18) OR ($m=='03' AND $d<21)) return 'Fish';
return null;
}
//тестирование (пример для 3 декабря)
echo $zodiak[zodiak(3,12)]; //Стрелец
?>
−42
#include <iostream>
using namespace std;
int main()
{
for(int i = 0x1; 0x1 <= i; i++)
{
int a = 0x5;
int b = 0xa;
cin >> i;
if(b || a)
{
a += 0x5;
cout << "\n ";
cout << "первое условие: ";
cout << "\n ";
cout << "переменная a = " << a;
cout << "\n ";
cout << "переменная b = " << --b + 0x5 - 0x9;
cout << "\n";
goto var;
}
else
{
var:
cout << "\n ";
cout << "второе условие: ";
a = (0xa - 0x5);
cout << "\n ";
cout << "переменная a = " << a;
cout << "\n ";
cout << "переменная b = " << ++b;
cout << "\n";
}
break;
}
system("pause");
return 0;
}
Попросил чела решить классическую задачку - обменять значениями две переменные, не используя третьей
+108
string result = Encoding.GetEncoding(CharSet).GetString(resultData);
// сам паттерн \[\[\[\"([^"]*)
String commonString = "";
commonString += @"\";
commonString += @"[";
commonString += @"\";
commonString += @"[";
commonString += @"\";
commonString += @"[";
commonString += @"\";
commonString += "\"";
commonString += @"(";
commonString += "[";
commonString += "^";
commonString += "\"";
commonString += @"]";
commonString += @"*";
commonString += @")";
String pattern = commonString;
Regex reg = new Regex(pattern);
var mathces = reg.Match(result);
String stringResult = mathces.ToString().Replace("[[[\"", "");
Сборка паттерна регулярки, скажите как можно такое покороче собрать
+188
<?php
...
$Sex = $_POST['sex']; //Пол юзера из поискового запроса
$searchSex = $_POST['searchsex']; //Пол искомого партнёра
...
if ($Sex == $searchSex) //Осторожно, педерасты!
{
...
//Вывод капчи
...
}
?>
Из написанного знакомым движка для сайта знакомств. Комментарии оригинала.
+997
vector<string> task(vector<string> words, string abbrev)
{
vector<string> results;
int index = 0;
while (index < words.size())
{
bool t = true;
string result = "";
for (int i = 0; i < abbrev.size(); i++)
{
if ( (index+i)<words.size() )
{
if (words[index+i][0] == abbrev[i])
{
result+=words[index+i]+" ";
}
else
{
t = false;
break;
}
}
else t = false;
}
if (t) results.push_back(result);
index++;
}
return results;
}
Поиск всех возможных расшифровок аббревиатуры в векторе строк. И пофиг что существует алгоритм search.
+137
xxx: Скажите пожалуйста нубоюзеру, как в сишарпе извлечь корень определённой степени?
yyy: http://msdn.microsoft.com/ru-ru/library/system.math.sqrt.aspx (Math.Sqrt, Возвращает квадратный корень из указанного числа.)
xxx: Спасибо, но желательно бы не только >квадратный< корень, но и заданной степени.
yyy: Делай через циклы или рекурсивно.
double SuperSquare(double number, int n)
{
double result = number;
for(int i = 0; i < n; i++)
{
result = Math.Sqrt(result)
}
return result;
}
// Както так
Инновационный способ вычислять корень заданной степени.
+168
if ((!IsForum() && $url[0] != 'underwater-video' && $end_element !='diveclan' && $end_element !='partners') || ($url[0] != 'underwater-photo' && sizeof($url)==1))
if ($url[0]!='atlas-uw-photo' && !empty($title) && $end_element!='diving-guide' && $end_element!='atlas-wrecks' && $end_element!='atlas-deep' && $end_element!='atlas-caves' && $end_element!='sea-inhabitants')
if ($APPLICATION->GetCurPage()!='/underwater-video/mygallery.php' && $APPLICATION->GetCurPage()!='/underwater-video/add.php' && $APPLICATION->GetCurPage()!='/atlas_update/travel_add/index.php')
if ($url[0] != 'diving-media' && $url[0] != 'underwater-photo')
$APPLICATION->SetTitle($title);
Унифицированный костыль тайтлов на битриксе. Это лежит во вкл области, которая цепояется после </html>