Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+95
static void Main(string[] args)
{
Func<int, int> m = delegate(int a)
{
Func<int, int> c = x => x / 2;
return a * c(a);
};
Console.WriteLine(m(10));
Console.ReadKey();
}Нестандартный подход
SharK1870,
24 Января 2015
+95
public static class ColorExtension
{
public static bool IsDarkColor(this Color color)
{
return (color.R & 255) + (color.G & 255) + (color.B & 255) < 3*256/2;
}
}x & 255 = ?, где x типа byte
schecterXA,
22 Января 2015
+95
double[,] ThreadMatrixMult(int size, double[,] m1, double[,] m2)
{
double[,] result = new double[size, size];
var threads = new List<Thread>(size);
for (int i = 0; i < size; i++)
{
var t = new Thread( ti =>
{
int ii = (int)ti;
for (int j = 0; j < size; j++)
{
result[ii, j] = 0;
for (int k = 0; k < size; k++)
{
result[ii, j] += m1[ii, k] * m2[k, j];
}
}
});
threads.Add(t);
t.Start(i);
}
foreach (Thread thread in threads)
thread.Join();
return result;
}
LispGovno,
21 Января 2015
+95
program Yields;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.Yield in 'System.Yield.pas';
procedure ShittyRec(Yield: TYield<Integer>; depth, par1, par2: integer);
var
i: integer;
begin
Yield(par1+par2);
if depth>100 then
exit;
for i := 0 to 99 do
begin
par2 := par2*65537+1;
ShittyRec(Yield, depth+1, par1*(i+1)+par2, par2);
end
end;
function GetNextShittyInt: TYieldEnumerable<Integer>;
begin
Result := TYieldEnumerable<Integer>.Create(
procedure(Yield: TYield<Integer>)
begin
Yield(0);
ShittyRec(Yield, 0, 1, 2);
end);
end;
var
i: Integer;
begin
for i in GetNextShittyInt do
begin
Writeln(i);
end;
Readln;
end.
LispGovno,
16 Января 2015
+95
if length(fsizeS)<=9 then fsize:=strtoint(fsizeS);
if (length(fsizeS)>9) and (length(fsizeS)<18) then
fsize:=strtoint(copy(fsizeS,length(fsizeS)-8,length(fsizeS)-9))+
strtoint(copy(fsizeS,1,length(fsizeS)-9))*1000000000{10**9};
if length(fsizeS)>18 then
begin
writeln;
writeln('File:'+curstr);
writeln('Size:'+fsizeS);
write('Please input file''s size, written above:');
readln(fsize);
end;Интересный способ конвертации строки в число. Думаю, у вас здесь такого ещё не было. Нашел в своих исходниках времён 8 - 9 класса.
vovams,
24 Января 2013
+95
import java.io.PrintStream;
import java.util.concurrent.atomic.AtomicBoolean;
public final class ShredingerCat
extends AtomicBoolean
{
static final PrintStream o=System.out;
static final long initMsec=System.currentTimeMillis ();
public static final ShredingerCat INSTANCE = new ShredingerCat();
private ShredingerCat ()
{
set ( false );
o.println ( "Construct SingleBool" );
}
public final
void criticalSection(){
synchronized (this) {
pr ( "Enter critical section" );
ShredingerCat.sl ( 5 );
pr ( "Cat is " +(
get()
? "dead"
: "alive"
)
);
sl(100);
pr ( "Exit critical section" );
}
}
// ===================== HELPER STUFF ========================
static void pr(String s){
o.println ( s+(
System.currentTimeMillis ()- initMsec
));
}
static void sl(long l){
try {
Thread.sleep ( l );
}catch (InterruptedException e) {
}
}
}
Обсуждение #11989 безопасных публикаций, конструкторов и синглтонов вдохновило меня на создание этого примера.
Суть: есть кот-синглтон. Он как вы видите защищен со всех сторон finalами, приправленое к тому же Atomicом.
Задание на серебряную медаль - сделать так чтобы 2 последовательных вызова toString() вывели Dead и Alive. Объект не должен меняться.
Задание на золотую медаль: необходимо получить примерно такой вывод:
Enter critical section0
Enter critical section0
Cat is alive16
Cat is dead16
Exit critical section110
Exit critical section110
За использование рефлексии и прочих unsafe - немедленная дисквалификация и бан модератором.
Решение будет чуть позже. Отдельным постом.
3.14159265,
26 Октября 2012
+95
println (13.0 to 14.0 by 0.1);
println (1.3 to 1.4 by 0.01);
println (7.0 to 8.2 by 0.3);
//Output:
NumericRange(13.0, 13.1, 13.2, 13.3, 13.4, 13.5, 13.6, 13.7, 13.8, 13.9, 14.0)
NumericRange(1.3, 1.31, 1.32, 1.33, 1.34, 1.35, 1.36, 1.37, 1.38, 1.39)
java.lang.ArithmeticException: Non-terminating decimal expansion; no exact representable decimal result.
at java.math.BigDecimal.divide(BigDecimal.java:1616)
Скала - говно. Вернее даже говнище. И это достойно отдельного поста.
Консолька для запуска тут:
http://www.simplyscala.com/
3.14159265,
25 Октября 2012
+95
final HCons<String, HCons<Integer, HCons<Boolean, HNil>>> a =
nil().extend(true).extend(3).extend("Foo");
final HCons<Double, HCons<String, HCons<Integer[], HNil>>> b =
nil().extend(new Integer[]{1, 2}).extend("Bar").extend(4.0);
// A lot of type annotation
final HAppend<HNil, HCons<Double, HCons<String, HCons<Integer[], HNil>>>,
HCons<Double, HCons<String, HCons<Integer[], HNil>>>> zero = append();
final HAppend<HCons<Boolean, HNil>, HCons<Double, HCons<String, HCons<Integer[], HNil>>>,
HCons<Boolean, HCons<Double, HCons<String, HCons<Integer[], HNil>>>>> one = append(zero);
final HAppend<HCons<Integer, HCons<Boolean, HNil>>, HCons<Double, HCons<String, HCons<Integer[], HNil>>>,
HCons<Integer, HCons<Boolean, HCons<Double, HCons<String, HCons<Integer[], HNil>>>>>> two = append(one);
final HAppend<HCons<String, HCons<Integer, HCons<Boolean, HNil>>>,
HCons<Double, HCons<String, HCons<Integer[], HNil>>>,
HCons<String, HCons<Integer, HCons<Boolean, HCons<Double, HCons<String, HCons<Integer[], HNil>>>>>>>
three = append(two);
// And all of that lets us append one list to the other.
final HCons<String, HCons<Integer, HCons<Boolean, HCons<Double, HCons<String, HCons<Integer[], HNil>>>>>>
x = three.append(a, b);
// And we can access the components of the concatenated list in a type-safe manner
System.out.println(x.head()); // Foo
System.out.println(x.tail().tail().tail().tail().head()); // Bar
Это вот такая она, функциональщина, упрощающая жизнь.
http://functionaljava.googlecode.com/svn/artifacts/3.0/demo/1.5/HList_append.java
3.14159265,
05 Октября 2012
+95
function IntToHex(Num: Int64; Digits: Byte): String;
type
DataInt = Array[0..7] of Byte;
var
I:Byte;
Data: ^DataInt;
begin
Data := @Num;
Result := '';
for I := Trunc(Digits/2)-1 downto 0 do begin
if SizeOf(DataInt) < I then
Result := Result+'00'
else begin
case Data^[I] of
0: Result := Result+'00';
1: Result := Result+'01';
2: Result := Result+'02';
{ ........... }
253: Result := Result+'FD';
254: Result := Result+'FE';
255: Result := Result+'FF';
end;
end;
end;
end;
Давно писал функцию для перевода числа в 16-ричное представление.
Причина - нужно было отдельную функцию без лишнего.
Вот такой вот жестокий быдло код :))
haker,
13 Июня 2012
+95
// same as Callable but without exception
public interface Executable<T>
{
public T call();
}
/*В другом классе: методы для конверсии туда-сюда */
public Callable<T> toCallable(final Executable<T> ex){
return new Callable<T>(){
public T call() throws Exception{
return ex.call();
}
};
}
public Executable<T> toExecutable(final Callable<T> c)
{
return new Executable<T>(){
public T call(){
try{
return c.call();
}catch (Exception e){
throw new RuntimeException(e);
}
}
};
}
3.14159265,
11 Июня 2012
Follow us!