- 1
- 2
- 3
- 4
- 5
http://varikvalefor.i2p
https://github.com/varikvalefor
http://varikvalefor.neocities.org/
Кто в ш2з бывает, особенно рекомендую прорваться по первой ссылке.
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
0
http://varikvalefor.i2p
https://github.com/varikvalefor
http://varikvalefor.neocities.org/
Кто в ш2з бывает, особенно рекомендую прорваться по первой ссылке.
Дискасс. Вечером скину основные тейки из ш2з для клирнетовцев.
+1429.9
bool IsBukva(char symbol)
{
switch(symbol)
{
case'a':return 1;break;
case'b':return 1;break;
case'c':return 1;break;
case'd':return 1;break;
case'e':return 1;break;
case'f':return 1;break;
case'g':return 1;break;
case'h':return 1;break;
case'i':return 1;break;
case'j':return 1;break;
case'k':return 1;break;
case'l':return 1;break;
case'm':return 1;break;
case'n':return 1;break;
case'o':return 1;break;
case'p':return 1;break;
case'q':return 1;break;
case'r':return 1;break;
case's':return 1;break;
case't':return 1;break;
case'u':return 1;break;
case'v':return 1;break;
case'w':return 1;break;
case'x':return 1;break;
case'y':return 1;break;
case'z':return 1;break;
case'A':return 1;break;
case'B':return 1;break;
case'C':return 1;break;
case'D':return 1;break;
case'E':return 1;break;
case'F':return 1;break;
case'G':return 1;break;
case'H':return 1;break;
case'I':return 1;break;
case'J':return 1;break;
case'K':return 1;break;
case'L':return 1;break;
case'M':return 1;break;
case'N':return 1;break;
case'O':return 1;break;
case'P':return 1;break;
case'Q':return 1;break;
case'R':return 1;break;
case'S':return 1;break;
case'T':return 1;break;
case'U':return 1;break;
case'V':return 1;break;
case'W':return 1;break;
case'X':return 1;break;
case'Y':return 1;break;
case'Z':return 1;break;
default:return 0;
}
}
Женский вариант проверки символа на букву.
Оригинал тут: http://forum.vingrad.ru/forum/topic-240593.html
+1
Что за мемчик про вореции?
Желательно со ссылками на лурк.
+80
procedure WriteString(ST: Ansistring);
var
leng: dword;
I: dword;
ss: Ansistring;
stk: Ansistring;
begin
leng := Length(ST);
for I := 1 to leng do
begin
ss := Copy(ST, I, 1);
stk := stk + ss;
end;
filestream1.Write(stk[1], Length(stk));
end;
Процедура записи строки в файл.
Использование:
var
filestream1: TfileStream;
begin
filestream1 := TfileStream.Create('file.dat', fmcreate);
WriteString('bla bla bla');
filestream1.Destroy;
end;
0
Минск #3
Встреча говнокодеров.
#1: https://govnokod.ru/25937 https://govnokod.xyz/_25937
#2: https://govnokod.ru/26458 https://govnokod.xyz/_26458
0
<?php
echo 'Именно поэтому я за' . ' ' . 'Silverlight' . '!';
Кто программировал на silverlight, стоит начинать изучение в 2к20 ?
+1
<?php
class Pet {
protected $name;
public function __construct($name) {
echo "Setting name to " . $name . "\n";
$this->name = $name;
}
public function eat() {
echo $this->name . " is eating.\n";
}
}
$var = 30;
$a_pet = new Pet("Spike");
$a_pet->eat();
?>
---
<?php
function Pet__construct(&$objInst, $name)
{
echo 'Setting name to ' . $name . '
';
$objInst['name'] = $name;
}
function Pet_eat(&$objInst)
{
echo $objInst['name'] . ' is eating.
';
}
$Pet = array('__vars' => array('name' => null));
$var = 30;
$a_pet = array_merge($Pet['__vars'], array('__type' => 'Pet'));
Pet__construct($a_pet, 'Spike');
Pet_eat($a_pet);
Конвертер из ООП в процедурный стиль.
Make PHP great again.
https://github.com/PatrickZurekUIC/PHP-OOP-Converter
+5
void sort3(uint32_t a[static 3])
{
// 0 1 2 3 4 5 6 7 8
uint32_t tmp[9] = {a[0], a[1], a[2], a[0], a[1], a[0], a[2], a[1], a[0]};
uint8_t bits = (a[0] <= a[1]) | ((a[1] <= a[2]) << 1) | ((a[0] <= a[2]) << 2);
static const uint8_t b[] =
{
[0b000] = 6,
[0b001] = 2,
[0b010] = 1,
[0b101] = 5,
[0b110] = 4,
[0b111] = 0,
};
memcpy(a, tmp+b[bits], 3*sizeof(uint32_t));
}
Новая инновационная сортировка на 3 элемента без if-ов
https://wandbox.org/permlink/pTLXgxKKQuaiVCxb
+11
/// Represents the model of a Writer document.
class SW_DLLPUBLIC SwDoc :
public IInterface,
public IDocumentSettingAccess,
public IDocumentDeviceAccess,
public IDocumentRedlineAccess,
public IDocumentLinksAdministration,
public IDocumentFieldsAccess,
public IDocumentContentOperations,
public IDocumentStylePoolAccess,
public IDocumentLineNumberAccess,
public IDocumentStatistics,
public IDocumentState,
public IDocumentDrawModelAccess,
public IDocumentLayoutAccess,
public IDocumentTimerAccess,
public IDocumentChartDataProviderAccess,
public IDocumentListItems,
public IDocumentOutlineNodes,
public IDocumentListsAccess,
public IDocumentExternalData
{
...
Вот это монстрище!
http://opengrok.libreoffice.org/xref/core/sw/inc/doc.hxx
+4
#!/bin/bash
# apt install jq w3m curl
curl https://gcode.space/api/comments \
| jq -r 'map("-"*99+"<br>"+.user_name+" "+.posted+"<br>","<ul>"+.text+"</ul>") | reduce .[] as $item (""; . + $item) ' \
| w3m -T text/html -cols 99 -dump \
| less -R
Консольная читалка для стока ГК