Re: Re: (Golf) ranging on alphabet

We can rework that slightly to remove characters, i count 136 with the same functionality (please tell me if my testing missed something :)

#23456789012345678901234567890123456789012345678
$b=join'',@{+pop};@_=@{+pop};$a={map{$_[$_],$_
[$_+1]}0..@_-2};$_=join',',grep$b=~s/\Q$_//g,
@_;s/(.)(?:,((??{"\Q$$a{$+}"})))+/$1..$+/g;$_
[download]

Put a print instead of a $_ for that last bit and it's 139 characters...

jynx

Comment on Re: Re: (Golf) ranging on alphabet Select or Download Code

Replies are listed 'Best First'.

Re: Re: Re: (Golf) ranging on alphabet
by flgr (Sexton) on Sep 27, 2001 at 17:17 UTC

#23456789012345678901234567890123456789012345678
$b=join'',@_={+pop};$a={map{$_[$_],$_[$_+1]}0..
@_-2};$_=join',',grep$b=~s/\Q$_//g,@_;s/(.)(?:,(
(??{"\Q$$a{$+}"})))+/$1..$+/g;$_
[download]

$§=lc(sub{}^" \6 \n");$§=~s/$.*$//;for(split ('',$§)){$/=$_;for(5..7){$/++}$:.=$/}print$:;1