- 1
- 2
- 3
- 4
- 5
- 6
tblib::operator << (s, curVersion);
tblib::operator << (s, indPlayer);
tblib::operator << (s, indDiamond);
tblib::operator << (s, indDisk);
tblib::operator << (s, indExit);
tblib::operator << (s, indDust);
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+15
tblib::operator << (s, curVersion);
tblib::operator << (s, indPlayer);
tblib::operator << (s, indDiamond);
tblib::operator << (s, indDisk);
tblib::operator << (s, indExit);
tblib::operator << (s, indDust);
Нельзя просто взять, и написать
s << curVersion << indPlayer << indDiamond << indDisk << indExit << indDust;
потому что глючный крестоблядский крестокомпилятор (MSVS-03) не может выбрать нужную крестоперегрузку.
"Сразу записать инт, или сначала кастануть его к жопе и записать жопу?"
+117
DataSection
Data.f 0.0025,0.0026,0.00235
EndDataSection
Global SCREENWIDTH,SCREENHEIGHT
Define .f:bitplanes.b=32
SCREENWIDTH=GetSystemMetrics_(#SM_CXSCREEN)
SCREENHEIGHT=GetSystemMetrics_(#SM_CYSCREEN)
If InitSprite()=0 Or InitSprite3D()=0 Or InitKeyboard()=0
MessageRequester("Error","Can't access DirectX",0)
End
EndIf
desktop.l = CreateImage(0,DesktopWidth(0),DesktopHeight(0))
hdc.l = StartDrawing(ImageOutput(0))
SelectObject_(hdc,desktop)
BitBlt_(hdc,0,0,DesktopWidth(0),DesktopHeight(0),GetDC_(GetDesktopWindow_()),0,0,#SRCCOPY)
StopDrawing()
DeleteDC_(hdc)
While OpenScreen(SCREENWIDTH,SCREENHEIGHT,bitplanes.b,"FullScreen")=0
If bitplanes.b>16
bitplanes.b-8
ElseIf SCREENHEIGHT>600
SCREENWIDTH=800
SCREENHEIGHT=600
ElseIf SCREENHEIGHT>480
SCREENWIDTH=640
SCREENHEIGHT=480
ElseIf SCREENHEIGHT>400
SCREENWIDTH=640
SCREENHEIGHT=400
ElseIf SCREENHEIGHT>240
SCREENWIDTH=320
SCREENHEIGHT=240
ElseIf SCREENHEIGHT>200
SCREENWIDTH=320
SCREENHEIGHT=200
Else
MessageRequester("Listen:","Can't open Screen!",0)
End
EndIf
Wend
w=DesktopWidth(0)
h=DesktopHeight(0)
z=1000/Sqr(3)
perspw=w
PerspectiveAngle.d=#PI/16
CreateSprite(0,w,h,#PB_Sprite_Texture)
StartDrawing(SpriteOutput(0))
DrawImage(ImageID(0),0,0)
StopDrawing()
DisplaySprite(0,0,0)
FlipBuffers()
DisplaySprite(0,0,0)
CreateSprite3D(0,0)
x3=w-1
x4=0
y3=h
y4=h
z3=z
z4=z
For t.b=1 To 3
omega=-omega
Read alfa
Repeat
ExamineKeyboard()
ClearScreen(0)
Incrz=h*Sin(Angle)
x1=Incrz*Tan(PerspectiveAngle)
x2=x3-x1
y1=h-h*Cos(Angle)
y2=y1
z1=z+Incrz/4.75
z2=z1:Start3D()
TransformSprite3D(0,x1,y1,z1,x2,y2,z2,x3,y3,z3,x4,y4,z4)
DisplaySprite3D(0,0,0,255)
Stop3D()
omega+alfa
If omega<0
Angle-Pow(omega,2)
Else
Angle+Pow(omega,2)
EndIf
If Angle<0 Or Angle>4/5*#PI
Break
EndIf
FlipBuffers()
Delay(10)
Until KeyboardPushed(#PB_Key_Escape)
Next
DisplaySprite(0,0,0)
FlipBuffers()
Delay(10)
DisplaySprite(0,0,0)
Очень интересный эффект - экран "отшатывается" от юзера :)
Для компиляции понадобится PureBasic не ниже 4.50
+158
function getLocaleByLang($lang) {
if(!isset($lang)) return false;
//function's code is here...
}
Ну думаю тут все понятно - зачем проверять существование переменной, которую невозможно не передать) Вот что значит - дедлайн рядом.
−166
Функция ЭтоБуква(Буква)
Возврат Найти("еоатинркулмДСвПдОсКцчыгзпбТНИьБФхВяРАЗЭйУЕГМЦжщЙШЩЫЛЯЧЬХЪЖЮЁёшъфэюQWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnm", Буква) > 0;
КонецФункции
Функция ЭтоЦифра(Буква)
Возврат Найти("1234567890", Буква)>0;
КонецФункции // ЭтоЦифра()
Функция ЭтоБукваИлиЦифра(Символ)
Возврат Найти("еоатинркулмДСвПдОсКцчыгзпбТНИьБФхВяРАЗЭйУЕГМЦжщЙШЩЫЛЯЧЬХЪЖЮЁёшъфэюQWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnm1234567890", Символ) > 0;
КонецФункции // ЭтоБукваИлиЦифра()
Из типовой конфигурации БГУ 2.0.
На первый взгляд реализация забавна :-) Но, в общем-то, это не является говнокодом: просмотрев в гугле различные "рейтинги букв", получил примерно то же самое.
Тем не менее, можно решить вопрос с помощью проверки кода символа.
+154
foreach ($arResult['SECTIONS'] as $key => $arSection)
{
$arMap[$arSection['ID']] = $key; /*Собираем все ID секций, при этом в качестве ключа пишем ID, а в качестве значения - индекс цикла (?!)*/
}
$rsSections = CIBlockSection::GetList(array(), array('ID' => array_keys($arMap)), false, $arSelect);
/*вызываем API - выборку из базы, при этом фильтруем по ID-шникам, вынимая их значения через array_keys() (??!!!) при том, что мы сами записывали ID шники в ключи а не в значения*/
while ($arSection = $rsSections->GetNext())
{
if (!isset($arMap[$arSection['ID']]))
continue; /*Проверяем еще раз что этот ID-ключ есть в массиве ??? мы его оттуда взяли*/
$key = $arMap[$arSection['ID']]; /*Нахера ??? (см. строчку 03)*/
if ($boolPicture)
{
$arSection['PICTURE'] = intval($arSection['PICTURE']);
$arSection['PICTURE'] = (0 < $arSection['PICTURE'] ? CFile::GetFileArray($arSection['PICTURE']) : false);
$arResult['SECTIONS'][$key]['PICTURE'] = $arSection['PICTURE'];
$arResult['SECTIONS'][$key]['~PICTURE'] = $arSection['~PICTURE'];
}
if ($boolDescr)
{
$arResult['SECTIONS'][$key]['DESCRIPTION'] = $arSection['DESCRIPTION'];
$arResult['SECTIONS'][$key]['~DESCRIPTION'] = $arSection['~DESCRIPTION'];
$arResult['SECTIONS'][$key]['DESCRIPTION_TYPE'] = $arSection['DESCRIPTION_TYPE'];
$arResult['SECTIONS'][$key]['~DESCRIPTION_TYPE'] = $arSection['~DESCRIPTION_TYPE'];
}
}
Битриксоидам за строчки платят? Дефолтный шаблон компонента Битрикса, который вшит ядро.
+127
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.IO;
namespace Slogan
{
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Выбрать текст из файла (1). Написать самому (2).");
char ch = Convert.ToChar(Console.ReadLine());
if (ch == '2')
{
Console.WriteLine("Количество слов");
int x = Convert.ToInt32(Console.ReadLine());
string[] arr = new string[x];
Console.WriteLine("Вводите слова");
for (int i = 0; i < arr.Length; i++)
{
arr[i] = Console.ReadLine();
}
int count = 0;
string slogan = "";
do
{
slogan = "";
for (int i = 0; i < arr.Length; i++)
{
System.Threading.Thread.Sleep(20);
Random rnd = new Random();
int fr = rnd.Next(0, x);
slogan += arr[fr] + " ";
}
Console.WriteLine(slogan);
count++;
} while (count != arr.Length);
}
else if (ch == '1')
{
string slogan = "";
Console.WriteLine("Введите имя пользователя Windows");
string user = Console.ReadLine();
Console.WriteLine("Введите название файла на рабочем столе");
string way = Console.ReadLine();
try
{
string input = File.ReadAllText("c:/users/" + user + "/desktop/" + way);
Console.WriteLine("Введите название файла на рабочем столе, куда сохранять");
string waytosave = "c:/users/" + user + "/desktop/" + Console.ReadLine();
string[] split = input.Split(new Char[] { ' ', ',', '.', ':', '\t' });
int counter = 0;
do
{
slogan = "";
for (int i = 0; i < split.Length; i++)
{
System.Threading.Thread.Sleep(20);
Random rnd = new Random();
int fr = rnd.Next(0, split.Length);
slogan += split[fr] + " ";
}
Console.WriteLine(slogan);
File.AppendAllText(waytosave, slogan);
counter++;
} while (counter != split.Length);
}
catch (Exception ex)
{
Console.WriteLine(ex.Message);
}
}
Console.ReadLine();
}
}
}
Выводит получаемые слова случайным образом
+63
template <typename T>
void function_name(T &&data)
{
static_assert(std::is_rvalue_reference<decltype(data)>::value, "data must be rvalue");
// ...
}
Все лишнее убрано
+154
var ajax = new Ajax.Request(this.ADDRESS,
{
method:'post',
parameters:{'secdata':secdata},
onComplete: function ( data ){
//console.log( data.responseText )
setTimeout( function(){ currentObj.callbackCompleteCommit( currentObj.connection.unpuck( data.responseText) )}, 0 ); //out of XHR handler
},
onFailure: function(){hideWaiter(); errorResponse(null,'<b>ERROR:</b>connect') },
asynchronous: true
});
Prototype 1.7.1
Это чувство, когда мешают try catch во внешнем обработчике.
Кстати, я видел фреймворк развивается: в git, и хелпе он уже 1.7.2 )
+154
if(sel.ToInt()==1){
Form1->NumberOfIndexes = 1;
}else if(sel.ToInt()==2){
...
//еще 11 таких же кучек
...
}else if(sel.ToInt()==13){
Form1->NumberOfIndexes = 13;
}else{
Form1->NumberOfIndexes = 1;
}
+134
try{
tempPage1Int = tempPage1.ToInt();
}catch(Exception &E){
tempPage1Int = 0;
goto NEXTFUCKER;
}
NEXTFUCKER:
Дописываю из-под стола.