|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Konstantin Stupnik 2:5020/400 07 Jun 2001 11:58:21
To : All
Subject : несколько Japh'ов
--------------------------------------------------------------------------------
Hi!
Дело было вечером, делать было нечего...
Hу не то что бы нечего, но нехотелось :)
Hу и вот:
#! /usr/bin/perl
$f=[sub{return -22.5*$_[0]*$_[0]+65.5*$_[0]+74;},
sub{return 74.5*$_[0]**2-605.5*$_[0]+1262;},
sub{return 2*$_[0]**2-25*$_[0]+188;},
sub{return 8*$_[0]**2-155*$_[0]+851;},
sub{return -45.5*$_[0]**2+1217.5*$_[0]-8026;},
sub{return -35*$_[0]**2+1079*$_[0]-8196;},
sub{return 4.5*$_[0]**2-173.5*$_[0]+1769;},
sub{return 9.5*$_[0]**2-414.5*$_[0]+4622;}];
sub f($){return chr($f->[$_[0]/3]->($_[0]));}
while($f->[@a/3]){push @a,print f(@a);}
#! /usr/bin/perl
my $japh=bless {},Japh;
$japh->J->u->s->t(' ')->a->n->o->t->h->e->r(' ')->p->e->r->l(
' ')->h->a->c->k->e->r;
package Japh;sub AUTOLOAD{print $AUTOLOAD=~/::([^D]*)/,$_[1];return shift;};
#! /usr/bin/perl
print ucfirst lc(join('',((split
//,join'',map{for((''.localtime(
$_*2764800))=~/(\w+\s+\w+)/){y/y
/k/;$;=$_};$;}(0..16))[39,40,28,
49,24,19,41,67,30,50,12,15,3,26,
12,15,48,17,50,5,68,34,12,20])))
--
Best regards,
Konstantin.
Brainbench MVP for perl.
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
