Re: [golf] PCLP 3.1 Koniec

Article View: pl.comp.lang.perl

Article #39693

#39693

From: Michał Szafrański
Date: Tue, 19 Oct 2004 14:24

22 lines
1794 bytes

Robert Szczygiel wrote:

> I tradycyjnie prosimy o rozjaśnienie rozwiązania.

  Tym razem jest dosyć proste (w końcu powstało trzy godziny po otwarciu
edycji).

-lap0 $_=map"@F"=~/(?=((?=.$_)#.{9})$_$_)(?=#$_)/g,map"{$_}#",1..8

A po pozbyciu się jednego map tylko jeden punkt więcej:

-lap0 $_=map"@F"=~/(?=((?=.{$_}#)#.{9}){$_}#{$_}#)(?=#{$_}#)/g,1..8

Pozostały map służy do sumowania długości tablic. Czyli klasyczne już
zastosowanie. Każde z ośmiu wygenerowanych przez map wyrażeń zlicza
kwadraty o innej długości boku (dokładnie $_+1). Miej więcej tak jak
robili to pozostali. Jedyna różnica to pozbycie się z wyrażenia
krotności innych niż główny licznik $_ poprzez zagnieżdzenie asercji
(?=).

--
m.

Technical Details

Message-ID: <cl383b$nct$1@81.210.81.243>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.internetia.pl!not-for-mail

References: <slrn.pl.cmpu4l.3ij.RobTM@pcatlas17.ifj.edu.pl> <slrn.pl.cna4s1.jv0.RobTM@pcatlas17.ifj.edu.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.internetia.pl!not-for-mail
From: Michał Szafrański <stalker@variable.not.found>
Newsgroups: pl.comp.lang.perl
Subject: Re: [golf] PCLP 3.1 Koniec
Date: Tue, 19 Oct 2004 16:24:42 +0200
Organization: Netia Telekom S.A.
Lines: 22
Message-ID: <cl383b$nct$1@81.210.81.243>
References: <slrn.pl.cmpu4l.3ij.RobTM@pcatlas17.ifj.edu.pl> <slrn.pl.cna4s1.jv0.RobTM@pcatlas17.ifj.edu.pl>
NNTP-Posting-Host: 81.210.81.243
Mime-Version: 1.0
X-Trace: nefryt.internetia.pl 1098195883 23965 81.210.81.243 (19 Oct 2004 14:24:43 GMT)
X-Complaints-To: abuse@inetia.pl
NNTP-Posting-Date: Tue, 19 Oct 2004 14:24:43 +0000 (UTC)
In-Reply-To: <slrn.pl.cna4s1.jv0.RobTM@pcatlas17.ifj.edu.pl>
X-Accept-Language: en-us, en
X-Tech-Contact: usenet@internetia.pl
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.2) Gecko/20040803
X-Server-Info: http://www.internetia.pl/news/
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message