Пролог?
никому даже подумать не дал...
Пролог?
никому даже подумать не дал...

Тут всё просто.
Тут всё просто.
не так то и просто... круглые скобки сначала вызывабт разрыв шаблона, потом начинаешь вспоминать, что в природе существует не только sh, bash и zsh...
csh это...
Java :D
Нет, не ява. Увидел расширение и все. А код не смотрел. :(
Fat-Zer
smile. Ну да, csh.
А IDE :D?
А IDE ?
ни каких зацепок... что-угодно может быть... похоже, что что-то гномовское... gedit?
Fat-Zer
Он самый.
Воистину неисправимый кадэешник
неоправдываете smile
Попробуйте отгадать, что это.
гадость какая-то... я слышал, что так 1С выглядит smile
Fat-Zer
Plasma запущена, Kwin запущен, что ещё надо wink.
Michail_Ul
Глагол какой-нибудь?
[quote=Michail_Ul]Попробуйте отгадать, что это.
гадость какая-то... я слышал, что так 1С выглядит smile[/quote]
1С. Это легко было. wink
fа я просто код запощю т..к IDE под него не знаю
mode list = ref node;
mode node = struct (int h, list t);
proc cons = (int n, list l) list: heap node := (n,l);
proc hd = (list l) int: ( l is nil | error("hd nil"); skip | h of l );
proc tl = (list l) list: ( l is nil | error("tl nil"); skip | t of l );
proc show = (list l) void: ( l isnt nil | print((" ",whole(hd(l),0))); show(tl(l)));
proc filter = (proc (int) bool p, list l) list:
if l is nil then nil
elif p(hd(l)) then cons(hd(l), filter(p,tl(l)))
else filter(p, tl(l))
fi;
или еще
funktion naechster tag nach = (datum x) datum:
wenn tag von x < monatslaenge(monat von x, jahr von x)
dann (tag von x + 1, monat von x, jahr von x)
wennaber monat von x = "Dezember"
dann (1, "Januar", jahr von x + 1)
ansonsten (1, nachfolgemonat(monat von x), jahr von x)
endewenn;mogul82
Не уверен, но кажется, что это Алгол.
Похоже на паскаль под досом. wink
Visual Basic? :o
Сдаюсь, в голову ничего не приходит. :o
Язык RSL http://ru.wikipedia.org/wiki/RSL. Соответственно и IDE родное (впрочем оно похоже на многие ide времен DOS. :)