LINUX.ORG.RU
ФорумTalks

И кто говорил, что Perl - запутанный?


0

0

Вот исходник на хваленом Питоне, вычисляющий число Pi нужной точности:

import string

def pi(x):
    _ = [0] * 10000

    a = ['@!&ABCDE?FG','_[999','_[998','(_)','while ','\n','\t',
         'return string.join','.append(str','99','.insert','for i in[']
    b = "*A@8]&:_[?77]&BCA_[?70]&:_[?71]&BC!7]F(1,'.')BCD(!7],'')\
        $-!6]<!1]$*G?72,?74,?78,?75,?76,?73]:_[i]&$"\
        "*!9],!5]=0,!2]$*!6]+=1$*A@8]&:!0]&$*if !4]==10:_[?79]&$*if !6]:\
        !7]E(@1]))$*_[@5]&],!5]=@4]&$*@1]=!4"\
        "]BC!4]=!3]+(!9]/10)BC!3]=!9]%10$*@1],!4]=@1]+1,0$*@0]=@9]&BC!9]=@3]&\
        BC_[@5]&]=@2]&BC!5]=@5]&$x$(!1]"\
        "*10)/3$0$0$!2]$0$[]$2$0$0$0$-@0]%@7](_,!5])$-@0]/@7](_,@6]&)$-(!8],@5]\
        &)$-!5]-1$-!5]$-x*!8]-1$-!5]>"\
        "0$-_[!5]-1]*10+(!9]*@6]&)"

    c={}
    for i in range(256):c[chr(i)]=chr(i)
    for i in range(1,len(a)):c[a[0][i-1]]=a[i]
    b = string.join(map(lambda x,_=c:_[x],list(b)),'').split('$')
    r = len(_)-len(b)
    for i in range(r,len(_)):
        _[1],_[2],_[3],=b[i-r],"def f%d(_,x=%d):\n\t"%(i,x),"f%d"%i
        if _[1][0]=='-':exec(_[2]+"return %s\n"%(_[1][1:]))
        elif _[1][0] == '*':exec(_[2]+"%s\n"%(_[1][1:]))
        else: _[3]=b[i-r]
        _[i]=eval(_[3])

    return _[9969](_)

print "PI=",pi(20) 
★★

Re: И кто говорил, что Perl - запутанный?

И что тебе тут не ясно?

troorl ★★ ()

Re: И кто говорил, что Perl - запутанный?

Однако, в "99 бутылках" так запутать на Питоне код, как на Перле, так ни у кого и не вышло :)

KRoN73 ★★★★★ ()

Re: И кто говорил, что Perl - запутанный?

man obfuscated c

blaster999 ★★ ()
Ответ на: Re: И кто говорил, что Perl - запутанный? от Sphinx

Re: И кто говорил, что Perl - запутанный?

Между прочим именно питоновцы начали обвинять перл в том, что на нем _можно_ такое написать, а на питоне нельзя. Пусть знают, что и на питоне те же "проблемы", если их так можно назвать.

xTERM ★★ ()
Ответ на: Re: И кто говорил, что Perl - запутанный? от xTERM

Re: И кто говорил, что Perl - запутанный?

Уважаемый. Вопрос не в том, что можно, а что нет. Вопрос в том, что эти языки располагают кодера к разным стилям программирования, форматирования кода и т.д.

troorl ★★ ()
Ответ на: Re: И кто говорил, что Perl - запутанный? от troorl

Re: И кто говорил, что Perl - запутанный?

> Вопрос в том, что эти языки располагают кодера

А так же крадут у него носки и выпивают его пиво, когда он отворачивается.

anonymous ()

Re: И кто говорил, что Perl - запутанный?

С ума сойти.... xTERM, это ты сам такое учудил, или где нашёл? Я даже не представляю, что надо принять, чтобы выдать такое.

cthulhu ★☆ ()
Ответ на: Re: И кто говорил, что Perl - запутанный? от cthulhu

Re: И кто говорил, что Perl - запутанный?

> Я даже не представляю, что надо принять, чтобы выдать такое.

Думаю, 10 лет Перла и кружки пива хватит... Хотя после 10 лет Перла можно и без пива :D

tailgunner ★★★★★ ()

Re: И кто говорил, что Perl - запутанный?

Вот простой пример, только с точностью большая беда.

int main(int argc, char* argv[])
{
	long	i;
	double  Pi = 0.0;

	for( i=3000000; i >= 0; i-- ) Pi += ( ( i & 1 ) ? -4.0 : 4.0) / ( 1 + (i<<1) );

	printf("Pi is %lf!\n", Pi);
	return 0;
}

alman ★★★ ()

Re: И кто говорил, что Perl - запутанный?

Колись, где тут rm -rf запрятан! :-)

anonymous ()
Ответ на: Re: И кто говорил, что Perl - запутанный? от KRoN73

Re: И кто говорил, что Perl - запутанный?

ух, клево.

а почему с точностью большая беда?

до тех 25 знаков после запятой, которые я помню все сходится.

и можно объяснение, как твое решение работает? :)

gr_buza ★★★★ ()
Ответ на: Re: И кто говорил, что Perl - запутанный? от Sphinx

Re: И кто говорил, что Perl - запутанный?

>Ололо atan.

Ну, а ещё вернее - в школе нас когда-то заставляли учить значения тригонометрических функций основных углов. Так вот, tg(45⁰) = 1 :)

KRoN73 ★★★★★ ()

Re: И кто говорил, что Perl - запутанный?

Да мало-ли чего какой автозапутывльщик сгенерить может.

madcore ★★★★★ ()

Re: И кто говорил, что Perl - запутанный?

все нормально, код вполне читабельный

Torvalds ()

Re: И кто говорил, что Perl - запутанный?

package Earth;sub Greet{
%_=('Y','~');$_='$;=!(Middle
Earth.age~~~<Eart~~~~~~~~~~~~~h
.age)?!(defined$ti~~~~~~~~~~~mez~~~On
e[2])?!(push@time~~~~~~~~~~~~~~~~Zone,loc
~altime())?rotation?~~~~~~~~~~~~~q~~?The Worl
~~d?:q:[\w]::q=[\~~~~~~~~~~~~~~~~~d~a-f]=:q?..~~
~~~?:q:.:;"42b3d3~~~~~~~~~~~~~~~~~~~~~728656c6c6f6
~~~~~0277f627c64672~~~~~~~~~~~~~~~~~~~~~b3072796e647
~~~~~~~42b3b3rg7d"=Ym~~~~~~~~~~~~~~~~~~~\$;~~*\;p~~~~u
~~~~~~~~~sh@_,$&;bless~~~~~~~~~~~~~~~~~~~~~~~~~$c~~~~~~~
~~~~~~~~~o~ntine~~~~~nt~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~s=\~~~~~~~$~~~~~~~~~~~~~~~~~~~~~~~pangaea~~~~
~~~~~~~~~~~~~~~;{l~~~~~~~~~~~~~~~~~~~~~~~~~~~~ocal@_;local$;
~~~~~~~~~~~~~~~~~="o~~~~~~~~~~~~~~~~~~~~~~~~~cean";$^A=(defi
~~~~~~~~~~~~~~~~~~~n~~~~~~~~~~~~~~~~~~~~~~~~~ed$continents)?
~~~~~~~~~~~~~~~~~~~(vec(~~~~~~~~~~~~~~~~~~~~~~$;, YYsplit(\'
~~~~~~~~~~~~~~~~~\',${\$;}~~~~~~~~~~~~~~~~~~~~~~)%3,YYsplit(
~~~~~~~~~~~~~~~~q??,$;)**2-~~~~~~~~~~~~~~~~~~~~~~(($;=Ytr/oa
~~~~~~~~~~~~~~~~eiu//)**2))=~~~~~~~~~~~~~~~~~~~~~~=28160)?q:
~~~~~~~~~~~~~~~~~.::q?!?:\'?~~~~~~~~~~~~~~~~~~~~~~\';}$^A=Ys
~~~~~~~~~~~~~~~~:\Q.\E:pack(~~~~~~~~~~~~~~~~~~~~~~\'h*\',j
~~~~~~~~~~~~~~~~~oin(q(),~~~~~~~~~~~~~~~~~~~~~~~grep{$_=
~~~~~~~~~~~~~~~~~~Ym,$,,}~~~~~~~~~~~~~~~~~~~~~~~split("
~~~~~~~~~~~~~~~~~",@_~~~~~~~~~~~~~~~~~~~~~~~~~~[0]))
~~~~~~~~~~~~~~~~):e~~~~~~~~~~~~~~~~~~~~~~~~~~~gexe
~~~~~~~~~~~~~~~;$d~~~~~~~~~~~~~~~~~~~~~~~~~~~="s
~~~~~~~~~~~~~~ort~~~~~~~~~~~~~~~~~~~~~~~~~~<=
~~~~~~~~~~~~>,~~~~~~~~~~~~~~~~~~~~~~~~~~YY
~~~~~~~~~~~@_~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~"~~~~~~~~~~~~~~~~~~~';;
s,(~|\r|\n|\s),,g;s.Y.\x7e.g;
eval};Greet;'the world';

j262 ★★ ()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.