develooper Front page | perl.perl5.porters | Postings from June 2009

[perl #66946] Games::Pentominos.pm: correct definition of L

Thread Next
From:
perlbug-followup
Date:
June 25, 2009 06:38
Subject:
[perl #66946] Games::Pentominos.pm: correct definition of L
Message ID:
rt-3.6.HEAD-11910-1245927728-999.66946-75-0@perl.org
# New Ticket Created by  ronald.goeggel@atosorigin.com 
# Please include the string:  [perl #66946]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=66946 >



This is a bug report for perl from ronald.goeggel@atosorigin.com,
generated with the help of perlbug 1.34 running under perl v5.8.1.


-----------------------------------------------------------------
[Please enter your report here]
The definition of pentomino 'L' isn't correct.

It should be defined as follows:

  L => [8, qw/xxxx xxxx x. .x x... ...x xx xx
              x... ...x x. .x xxxx xxxx x. .x
              .... .... x. .x .... .... x. .x
              .... .... xx xx .... .... x. .x/],

Solving the example board (10*6 fields) now results in 9000 solutions, as expected.
____________________________________
Have you noticed that the duration depends (extremely) on the positioning of the board?
For example (on my notebook):
  solving a board of 3*20 fields takes 2 seconds;
  solving a board of 20*3 fields takes 15 hours!
It seems as if the regular expressions work better on small rows ;-)



[Please do not change anything below this line]
-----------------------------------------------------------------
---
Flags:
    category=core
    severity=low
---
This perlbug was built using Perl v5.8.1 - Thu Aug 14 12:27:18 CEST 2008
It is being executed now by  Perl v5.8.1 - Fri Aug 15 11:38:14 CEST 2008.

Site configuration information for perl v5.8.1:

Configured by root at Fri Aug 15 11:38:14 CEST 2008.

Summary of my perl5 (revision 5.0 version 8 subversion 1) configuration:
  Platform:
    osname=linux, osvers=2.4.20, archname=i686-linux
    uname='linux lxdata 2.4.20 #4 smp fre feb 14 15:30:46 cet 2003 i686 unknown '
    config_args='-Dprefix=/opt/perl'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
    useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='cc', ccflags ='-fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
    optimize='-O3',
    cppflags='-fno-strict-aliasing -I/usr/local/include'
    ccversion='', gccversion='2.95.2 20000220 (Debian GNU/Linux)', gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
    alignbytes=4, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib
    libs=-lnsl -ldl -lm -lcrypt -lutil -lc
    perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc
    libc=/lib/libc-2.2.5.so, so=so, useshrplib=false, libperl=libperl.a
    gnulibc_version='2.2.5'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
    cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'

Locally applied patches:
    

---
@INC for perl v5.8.1:
    /r5/users/de15450/perl/perllib
    /r5/forsgb/4.5/tools.entw/perllib/
    /r5/forsgb/4.5/tools.ptf/perllib/
    /r5/forsgb/4.5/tools/perllib/
    /r5/forsgb/tools.entw/perllib
    /r5/forsgb/tools.ptf/perllib
    /r5/forsgb/tools/perllib
    /opt/perl/lib/5.8.1/i686-linux
    /opt/perl/lib/5.8.1
    /opt/perl/lib/site_perl/5.8.1/i686-linux
    /opt/perl/lib/site_perl/5.8.1
    /opt/perl/lib/site_perl
    .

---
Environment for perl v5.8.1:
    HOME=/r5/users/de15450
    LANG=de_DE
    LANGUAGE (unset)
    LC_ALL=de_DE
    LD_LIBRARY_PATH=/ora8174/lib/:/usr/lib/cobol/coblib
    LOGDIR (unset)
    PATH=.:/r5/users/de15450/perl:/r5/forsgb/4.5/system/bin_ora_8174.linux:/r5/forsgb/4.5/tools.entw:/r5/forsgb/4.5/cmd.entw:/r5/forsgb/4.5/cmd.ptf:/r5/forsgb/4.5/cmd:/r5/forsgb/4.5/tools.ptf:/r5/forsgb/4.5/tools:/r5/forsgb/4.5/bin_ora_8174.linux:/r5/forsgb/tools.entw:/r5/forsgb/tools.ptf:/r5/forsgb/tools:/usr/local/bin:/usr/local/bin:/usr/bin:/bin:/sbin:/usr/bin/X11:/usr/local/j2re1.4.2/bin:/usr/sbin:/ora8174/bin:/usr/lib/cobol/bin:/r5/users/de15450/perl
    PERL5LIB=/r5/users/de15450/perl/perllib:/r5/forsgb/4.5/tools.entw/perllib/:/r5/forsgb/4.5/tools.ptf/perllib/:/r5/forsgb/4.5/tools/perllib/:/r5/forsgb/tools.entw/perllib:/r5/forsgb/tools.ptf/perllib:/r5/forsgb/tools/perllib
    PERLLIB_PRIV=/r5/users/de15450/perl/perllib
    PERL_BADLANG (unset)
    SHELL=/bin/ksh

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About