Давайте поиграемся в языки программирования?! Ruby, Python, PHP

Страницы: ← Предыдущая страница • Следующая страница →

Trej Gun

Сообщения: 5305 Репутация: N Группа: в ухо

Авг. 28, 2009, 2:40 п.п., спустя 5 минут 36 секунд

Timur, а что метод main имеет ретурн?
Mr.Pihto

Сообщения: 1386 Репутация: N Группа: Адекваты
Авг. 28, 2009, 2:43 п.п., спустя 2 минуты 54 секунды
10101010001001010101101 1010101001010101010101010100 101010001011110010101011001010 1010101010101010101010101001101 10100101010010101001010101001010

это примерно команда print :)

Sinkler

Сообщения: 7958 Репутация: N Группа: в ухо

Авг. 28, 2009, 8:41 п.п., спустя 5 часов 58 минут 27 секунд

вспомним молодость


var
    i: integer;
    str: string;
begin
    writeln('hello from turbo pascal');

    { Простой цикл }
    for i to 10 do 
        writeln(concat('hello ',i));

    { Простая условная конструкция }
    if str='man'
        then writeln('man');
        else writeln('not man');

end.

concat в принципе тут не нужен

mario

Сообщения: 6067 Репутация: N Группа: Джедаи

Авг. 28, 2009, 3:59 п.п., спустя 19 часов 18 минут 11 секунд

вспомним молодость


var
    i: integer;
    str: string;
begin
    writeln('hello from turbo pascal');

    { Простой цикл }
    for i to 10 do 
        writeln(concat('hello ',i));

    { Простая условная конструкция }
    if str='man'
        then writeln('man');
        else writeln('not man');

end.

лучше не надо :)

Roller

Сообщения: 143 Репутация: N Группа: Кто попало

Авг. 28, 2009, 4:11 п.п., спустя 12 минут 16 секунд


text       segment   'code'
             org         100h
             assume    cs:text, ds:text, ss:text, es:text

stdout     equ    1
cr           equ    10
lf            equ    13

myproc    proc
              mov   AH, 40h
              mov   BX, stdout
              mov   CX, meslen
              mov   DX, offset mes
              mov   21h

outprog:   mov  AX, 4C00h
               int 21h
myproc     endp

mes          db     'Hello from MASM', cr, lf
meslen      equ    $-mes
text          ends
               end myproc

Rushter

Сообщения: 17 Репутация: N Группа: Кто попало

Авг. 28, 2009, 4:40 п.п., спустя 28 минут 50 секунд

++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++
.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.
——.——–.>+.>.
rider-sx

Сообщения: 2706 Репутация: N Группа: Адекваты

Авг. 28, 2009, 4:42 п.п., спустя 1 минуту 25 секунд

++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++
.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.
——.——–.>+.>.
Это че блять?
Rushter

Сообщения: 17 Репутация: N Группа: Кто попало

Авг. 28, 2009, 4:47 п.п., спустя 5 минут 45 секунд

Погугли,это как бы brainfuck.
http://ru.wikipedia.org/wiki/Brainfuck
Trej Gun

Сообщения: 5305 Репутация: N Группа: в ухо

Авг. 28, 2009, 4:49 п.п., спустя 1 минуту 14 секунд

Rushter, это выводит "hello word" а не "hello from brainfuck" так что не выебуйся

Lirck

Сообщения: 1658 Репутация: N Группа: Джедаи

Авг. 28, 2009, 5:01 п.п., спустя 12 минут 6 секунд

+++++++++++++++++++++++++++++++[>++>+++>++++<<<-]+++++++++++++++++++++++++++++++>>+++++++++++.—.+++++++..+++.<<+.>>———.>———-.—.–.<<<.>>—-.>+++++.<-.++++++++.>—-.<—.>+++++++.<—.++++++++.

Trej Gun

Сообщения: 5305 Репутация: N Группа: в ухо

Авг. 28, 2009, 5:04 п.п., спустя 3 минуты 38 секунд

aivee, молорик
killich

Сообщения: 270 Репутация: N Группа: Адекваты

Авг. 28, 2009, 5:55 п.п., спустя 50 минут 50 секунд

Вы все здесь А**енные я как посмотрю!

Куда я попал! =)

Рубист с большой буквы Г. Серый кардинал кулинарного блога open-cook.ru
Sinkler

Сообщения: 7958 Репутация: N Группа: в ухо

Авг. 28, 2009, 8:43 п.п., спустя 2 часа 47 минут 57 секунд

Вы все здесь А**енные я как посмотрю!

Куда я попал! =)

на а**енный сайт =)
killich

Сообщения: 270 Репутация: N Группа: Адекваты

Авг. 28, 2009, 10:12 п.п., спустя 1 час 28 минут 35 секунд

А**енно!

Рубист с большой буквы Г. Серый кардинал кулинарного блога open-cook.ru
AlexB

Сообщения: 4306 Репутация: N Группа: в ухо

Сен. 1, 2009, 2:48 п.п., спустя 3 дня 16 часов 36 минут

Может еще кто-нибудь это узнает:

(cond
((= a b) (princ "\n(a) and (b) are equal"))
((and (= (type a) 'INT) (= (type b) 'INT))
(princ (strcat "\n(a)+(b)=" (itoa (+ a b)))))
((and (= (type a) 'STR) (= (type b) 'STR))
(princ (strcat "\n(a)+(b)=" a b)))
((and (listp a) (= (type b) 'SUBR))
(mapcar '(lambda (x) (princ (b x))) a)))

Страницы: ← Предыдущая страница • Следующая страница →

Пожалуйста, авторизуйтесь, чтобы написать комментарий!

Давайте поиграемся в языки программирования?! Ruby, Python, PHP

Войти