|
ru.algorithms
- RU.ALGORITHMS ----------------------------------------------------------------
From : OAM 2:5020/400 09 Oct 2001 13:50:38
To : Comoderator Of Ru Algorithms
Subject : Re: Печать исходного кода
--------------------------------------------------------------------------------
Родились у меня еще два примерчика:
-------------------------------------------------------
Delphi 4 (112 байт)
var a:string='var
a:string=;begin;insert(#39+a+#39,a,14);write(a)end.';begin;insert(#39+a+#39,
a,14);write(a)end.
Паскаль (119 байт)
const a=#39'const
a=#39;begin;write(copy(a,2,11)+a+copy(a,10,49))end.'#39;begin;write(copy(a,2
,11)+a+copy(a,10,49))end.
Hо как на Паскале уложится в 116, пока не вижу.... Только вижу, что в
Паскале (Delphi) уж очень много слов-паразитов.
Андрей Максименко
--- ifmail v.2.15dev5
* Origin: Comint Ltd (post does not reflect views of Comint Ltd) (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
