- 1
https://www.peereboom.us/assl/assl/html/openssl.html
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+127
https://www.peereboom.us/assl/assl/html/openssl.html
+143
+++++[>++>+++[>+++>+++<<-]>+<<<-]+++[>>>-.<[>>.>+<<+.<-]<.>>+.>>+[<.<-.<+>>>-]<<+<+<.<-]
Brainfuck, задача - вывести
1
2-1
1-2-3
4-3-2-1
1-2-3-4-5
6-5-4-3-2-1
Из этой ветки: http://habrahabr.ru/post/116842/#comment_3794462
+13
Официальный тред для каклосрача
срать тут ↓
+140
@echo brutushafens, если ты есть вконтакте, добавь меня в друзья, поговорим. vk.com/cageo
@echo если тебя нет вконтакте, напиши мне на [email protected].
@pause
Послание для brutushafens :)
+141
@echo off
start https://pp.vk.me/c607724/v607724832/6c07/5fRLUPfqMe8.jpg
start https://pp.vk.me/c607724/v607724832/6c1c/LD7Zqx1yZAw.jpg
Для батника, запустите - поймёте ;)
+143
// основная функция запуска
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);
}
}
}
Названия языка нет..
Если не нравятся названия команд (например, func и т.д.), то пишите, исправлю. Потом вам готовую версию вышлю :)
+142
// основная функция запуска
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);
}
}
}
Названия языка нет..
+143
Lol1 = "1", Lol2 = "2"
set lols = array
lols.append Lol1
lols.append Lol2
set result = string
result = lols.foldl1 (++)
Put result
Название языка ещё не придумал :)
+123
Type win32gui
Create object window
Set window title = "Window"
Set width window = 299
Set height window = 279
S1 = "y"
S2 = "="
S3 = "x^3+1"
Obj = "Graph"
Create object obj
Set obj graph = "y=x^3+1"
Display obj
Rewrite obj
Название языка ещё не придумал :P
Данный пример построит график y=x^3+1.
Картинка тут - http://coun.at.ua/_sf/1/116_Screenshot1.png
+133
Lol = "Lol"
Put Lol
Lol1 = "1", Lol2 = "2"
Put Lol1+Lol2
Set lol = string
Lol = "HELLO LOLLED GUYS!"
Put lol.lowcase
Lolka="lolka"
Put lolka.upcase
Так сказать, новый язык программирования - название не придумал (помогите!!!).
Результат выполнения программы:
Lol
3
hello lolled guys!
LOLKA
Жду комментариев (напишите название для япа).