Куча — Говнокод.ру

Куча / Говнокод #15866

+144

1
2
3

Кто против выхода языка программирования Lapis - ставьте минус, кто за - плюс.
P.s. если наберётся 10 плюсов, дам интерпретатор.
P.p.s. если наберётся 10 минусов, никогда никому тут не дам интерпретатор :)

Ждём-с, пока пост наберёт +-10.

Mobac, 30 Апреля 2014

Комментарии (21)

Куча / Говнокод #15863

+118

01
02
03
04
05
06
07
08
09
10
11

put 'Сейчас я загадаю число от 1 до 100, и это будет..'
a = rnd(100)
put a.to_s + ' - загаданное число! В конце мы получим 4!'
b = a*2
put b.to_s + ' - это ' + a.to_s + ', умноженное на 2!'
c = b+8
put c.to_s + ' - это ' + b.to_s + ', к которому мы прибавили 8!'
e = c/2 
put e.to_s + ' - это ' + c.to_s + ', которое мы разделили на 2!'
d = e-a
put d.to_s + ' - это результат. То есть мы отняли от ' + e.to_s + ' - ' + a.to_s + '. Видите, это же ' + d.to_s + '!'

С названием языка всё-таки решился, называл его "Lapis". (На Ruby синтаксис немного похож, но очень много будет отличий)!
Кто-нибудь хочет принять участие в разработке интерпретатора? Пишу на javascript-е, будет транслируемый язык.
Кто за, ставьте плюс посту и пишите в комментарии.

Mobac, 29 Апреля 2014

Комментарии (79)

Куча / Говнокод #15855

+143

1
2

Небольшие программки :)
Советую посмотреть и написать отзыв о любой из них.

Скачать >> http://coun.at.ua/stuff/1-1-0-122

Mobac, 28 Апреля 2014

Комментарии (65)

Куча / Говнокод #15846

+129

1

http://archive.today/9LWN

From: Linus Torvalds
I think goto's are fine, and they are often more readable than large
amounts of indentation.

laMer007, 25 Апреля 2014

Комментарии (111)

Куча / Говнокод #15842

+124

01
02
03
04
05
06
07
08
09
10
11
12

import elements
import functions
import system
error = 'Ошибок нет'
add = input ('Введите элемент, который вы хотите добавить в таблицу')
table = element.table
addToTable : add
if addTo.table : Successful {
 put 'Ошибок нет' }
else 
put error
system.exit

На случай, если друг подумает, что ничего не работает..
Писалось на языке без названия, не придумал ещё :)

Mobac, 24 Апреля 2014

Комментарии (11)

Куча / Говнокод #15840

+143

1

CFGDBFACADOEBFAAAACOABAOBBGAAODBFADCCCFDOGDACCOGAAAAAACOBDBGAAOCBGDEBDFDADGCBEDAABCOBEECBDAOECFCCFCCEOBDOAABDFOAOBDBOBGOBDBBEECBBAOOBADBADAEGAOCBEFAABCFDBGOAFGBGEBBDBBGBBGBEACOOACAAABCBDADGACAAABDOOAAFCBBDBODCBDFDCBEDAAACEAGACFDCADDFOBCCBOBDGEDEFBAAAABDAACDBDGODGBCBBDCOAEGAOBAEFBOEDGCCGEDBOCFDBEBBEFAOCACGBFEAAEBGFDOBCAADACAAECGEAABDBFACGBGECEGCDADBFACGABOCGGDFEABOCOGCFGCOAAAAAOEAAABGECCODAD

"Змейка" в машинных кодах на системе счисления wct. WctEditor - http://yadi.sk/d/i9Me1IQ7MbHCD.

Mobac, 24 Апреля 2014

Комментарии (1)

Куча / Говнокод #15838

+126

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100

program FeyverkFirework;

{$R+}

uses
  Crt, Graph;

var
  GraphDriver, GraphMode, ErrorCode : Integer;
  Ch : Char;
  I, J, K, XStart, YStart : Integer;
  XX,YY,CC : Array[1..1000] of Integer;
  FX,FY,DX,DY : Array[1..70] of Real;
  R, T, X, Y : Real;

procedure Explode (C : Integer);

begin
  T := -Pi;
  I := 0;
  Repeat
    I := I + 1;
    DX[I] := Sin(T)*5;
    DY[I] := Cos(T)*5;
    FX[I] := X;
    FY[I] := Y;
    T := T + 0.15;
  Until T > Pi;

  K := 0;
  Repeat
    For J := 1 to I do
      begin
        If C = 0 then
          PutPixel (Round(FX[J]),Round(FY[J]),0)
        else
          PutPixel (Round(FX[J]),Round(FY[J]),Random(GetMaxColor+1));
        FX[J] := FX[J] + DX[J];
        FY[J] := FY[J] - DY[J];
        DY[J] := DY[J] - 0.2;
      end;
    K := K + 1;
    Delay(10); { This was not in the original. }
  Until Keypressed or (K > 50);
end;

procedure ShootFireWork;

begin
  { Delay (1000); }
  Randomize;
  T := Random / 2 - 0.25 + Pi/2;
  X := XStart;
  Y := YStart;
  R := 20;
  I := 0;
  Repeat
    Inc (I);
    XX[I] := Round(X);
    YY[I] := Round(Y);
    CC[I] := GetPixel (XX[I],YY[I]);
    If I > 1 then
      If (XX[I] = XX[I-1]) and (YY[I] = YY[I-1]) then CC[I] := CC[I-1];
    PutPixel (XX[I],YY[I],Random(GetMaxColor+1));
    If I > 5 then
      PutPixel (XX[I-5],YY[I-5],CC[I-5]);
    X := X + Cos(T)*R;
    Y := Y - Sin(T)*R;
    If T > Pi/2 then
      T := T + 0.02
    else
      T := T - 0.02;
    R := R * 0.93;
    Delay (20);
  Until KeyPressed or (T < 0) or (T > Pi);

  For J := I-5 to I do

     PutPixel (XX[J],YY[J],CC[J]);
{    ch := readkey; }
  Explode (1);
  Explode (0);
end;

begin
  GraphDriver := Detect;
  InitGraph (GraphDriver, GraphMode, '..');
  ErrorCode := GraphResult;
  If ErrorCode <> grOk then
    begin
      Writeln ('Graphics Error: ',GraphErrorMsg(ErrorCode));
      Halt;
    end;
  SetColor (GetMaxColor);
  XStart := GetMaxX div 2;
  YStart := GetMaxY - 20;

  Repeat
    ShootFireWork;
  Until Keypressed;

Ch := ReadKey;
ClearDevice;
CloseGraph;
end.

Работает же! Красиво получается :)
Выполнить код можно здесь: http://pma.clan.su/index.html.
Алгоритм выполнения кода. Жмём E. Вводим код. Нажимаем в левом нижнем углу CoPas editor. Нажимаем R. Радуемся! :)

Mobac, 24 Апреля 2014

Комментарии (9)

Куча / Говнокод #15824

+125

1

'q<->5.,q<->r<0>3.,q<T>r<0>3.,q<:>r<0>3.,q<:>r<0>3.,r<0>2.' 8!:2<.2014 3 2 3 30 46.034

Еще одни даты на J.

Abbath, 22 Апреля 2014

Комментарии (2)

Куча / Говнокод #15823

+143

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

// основная функция запуска
func main($script){
    //устанавливаем значение переменной
    $caption = "гыыы кальулятор";
    
    //грузим иконку
	$calc_icon= library_load_icon(library_load("shell32.dll"),307);
	
	//создаем окошко))
	$main_window=gui_window("TCalc",$caption,$_WS_SYSMENU+$_WS_VISIBLE+$_WS_CAPTION,$_CW_DESKTOPCENTER,$_CW_DESKTOPCENTER,200,100,$calc_icon,0,0,"WindowFunc");
	
	gui_control($main_window,"button","ok",201,$_WS_CHILD+$_WS_VISIBLE+$_BS_DEFPUSHBUTTON+$_BS_FLAT,152,16,32,16);
	gui_control($main_window,"edit","2+7",202,$_WS_CHILD+$_WS_VISIBLE,2,15,130,15);
	gui_control($main_window,"static","Ready",203,$_WS_CHILD+$_WS_VISIBLE,16,36,130,16);
	
	//иконка в трее...
	tray_icon($main_window,$calc_icon,"ГАЛЬГУЛЯТОР",$_NIM_ADD);
	tray_icon_show_balloon($main_window,"[$caption] -> Startup","Добро пожаловать в программу\nСоздано с неизвестным языком (название не придумал)",4);
	idle(); //перевод программы в режим ожидания
}
	 
func WindowFunc($hwnd,$msg,$param,$id){ //обработка сообщений виндоуса
	if($msg==$_WM_CLOSE){  //если крестик нажали
		tray_icon($main_window,$calc_icon,null,$_NIM_DELETE);  //удаляем иконку
		close();  //выходим
	}
	if($msg==$_WM_COMMAND){  //если нажали кнопку
		if($id==201){ //click ok  //определяем ID   //math_compiler - производить математические операции
			$res=math_compiler(gui_get($hwnd,202)); //gui_get - получить текст
			if length($res)==0 {                    //gui_set - установить текст
				$res="[ERROR]";
				tray_icon_show_balloon($hwnd,"[$caption] -> Ашипка","Нивазможна\nправирить текст!",2);
			}else{
				tray_icon_show_balloon($hwnd,"[$caption] -> Result",gui_get($hwnd,202)." = $res",4);
			}
			gui_set($hwnd,203,$res);
		}
	}
}

Из желания многих увидеть интерпретатор сего кода, прошу вас! Вот же он -> http://coun.at.ua/stuff/1-1-0-117!
Знаю, что сейчас будет много отрицательных комментариев, но! Что мне добавить в язык? Говорите, дамы и господа!

Mobac, 22 Апреля 2014

Комментарии (1)

Куча / Говнокод #15822

+122

1

}:;(1,5#3)<@}."_1'--T:: ',.~":,.10000+<.6!:0''

Даты. Теперь на J.

Abbath, 22 Апреля 2014

Комментарии (2)

Говнокод: по колено в коде.

Куча / Говнокод #15866

Куча / Говнокод #15863

Куча / Говнокод #15855

Куча / Говнокод #15846

Куча / Говнокод #15842

Куча / Говнокод #15840

Куча / Говнокод #15838

Куча / Говнокод #15824

Куча / Говнокод #15823

Куча / Говнокод #15822