<div dir="ltr">Awesome - but can it be done in a single statement ? (like the string-based solution)<div><br><div><br><div class="gmail_quote">On 10 September 2012 08:48, Micha <span dir="ltr">&lt;<a href="mailto:mickey75@gmail.com" target="_blank">mickey75@gmail.com</a>&gt;</span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Ynon&#39;s requirement was no duplicates in length.<br>this works for me:<br><br>$ perl -e &#39;my$x=+{map{length($_)=&gt;$_}reverse(glob(&quot;*&quot;))};print($x-&gt;{$_}.&quot;\n&quot;)for(splice(@{[sort{$a&lt;=&gt;$b}keys %$x]},0,shift))&#39; 9<br>

<br>cheers,<br>Micha<div class="HOEnZb"><div class="h5"><br><br>On Mon, Sep 10, 2012 at 12:43 AM, Avishalom Shalit <span dir="ltr">&lt;<a href="mailto:avishalom@gmail.com" target="_blank">avishalom@gmail.com</a>&gt;</span> wrote:<br>
<div class="gmail_quote">
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
remember that TLAP (talk like a pirate) day is soon<br>
<br>
@ARRRRGV<br>
<br>
<br>
<br>
well to be honest , since the list isn&#39;t that long it could have been<br>
a flat sort<br>
a bit cleaner<br>
<br>
&gt;&gt; $ perl -e &#39;$n=$ARGV[0];@a=sort{length($a)&lt;=&gt; length($b)} @ARGV[1..$#ARGV]; print &quot;@a[0..$n]&quot;&#39; 4 *<br>
<br>
<br>
-- vish<br>
<div><div><br>
<br>
<br>
On 9 September 2012 23:35, sawyer x &lt;<a href="mailto:xsawyerx@gmail.com" target="_blank">xsawyerx@gmail.com</a>&gt; wrote:<br>
&gt; I can recognize a Schwarzian transform when I see one!<br>
&gt;<br>
&gt;<br>
&gt; On Mon, Sep 10, 2012 at 1:06 AM, Avishalom Shalit &lt;<a href="mailto:avishalom@gmail.com" target="_blank">avishalom@gmail.com</a>&gt;<br>
&gt; wrote:<br>
&gt;&gt;<br>
&gt;&gt; $ perl -e &#39;$n=$ARGV[0];@a=map{$_-&gt;[1]}sort{$a-&gt;[0] &lt;=&gt;<br>
&gt;&gt; $b-&gt;[0]}map{[length($_),$_]} @ARGV[1..$#ARGV]; print &quot;@a[0..$n]&quot;&#39; 4 *<br>
&gt;&gt;<br>
&gt;&gt; clarifying<br>
&gt;&gt;<br>
&gt;&gt; $ perl -e &#39;<br>
&gt;&gt; $n=$ARGV[0];<br>
&gt;&gt; @a=map{$_-&gt;[1]}<br>
&gt;&gt;         sort{$a-&gt;[0] &lt;=&gt; $b-&gt;[0]}<br>
&gt;&gt;         map{[length($_),$_]}<br>
&gt;&gt;     @ARGV[1..$#ARGV];<br>
&gt;&gt; print &quot;@a[0..$n]&quot;&#39; 4 *<br>
&gt;&gt;<br>
&gt;&gt;<br>
&gt;&gt; -- vish<br>
&gt;&gt;<br>
&gt;&gt;<br>
&gt;&gt;<br>
&gt;&gt;<br>
&gt;&gt; On 9 September 2012 18:39, ynon perek &lt;<a href="mailto:ynonperek@gmail.com" target="_blank">ynonperek@gmail.com</a>&gt; wrote:<br>
&gt;&gt; &gt;<br>
&gt;&gt; &gt; Hi All,<br>
&gt;&gt; &gt;<br>
&gt;&gt; &gt; I&#39;m trying to turn a short program into a one-liner. The program takes<br>
&gt;&gt; &gt; an argument &quot;n&quot; and prints the first n file names sorted by file name<br>
&gt;&gt; &gt; length, with no duplicates in length.<br>
&gt;&gt; &gt;<br>
&gt;&gt; &gt; Here&#39;s what I wrote for the original code:<br>
&gt;&gt; &gt; <a href="https://gist.github.com/3684778" target="_blank">https://gist.github.com/3684778</a><br>
&gt;&gt; &gt;<br>
&gt;&gt; &gt; The part I found difficult is to sort a dictionary by its keys, and<br>
&gt;&gt; &gt; print the top n values...<br>
&gt;&gt; &gt;<br>
&gt;&gt; &gt; Ideas ?<br>
&gt;&gt; &gt;<br>
&gt;&gt; &gt; (clarification: this is just for fun, nothing important, and I&#39;m not<br>
&gt;&gt; &gt; interested in string based solutions, already got one on the same gist).<br>
&gt;&gt; &gt;<br>
&gt;&gt; &gt; Cheers,<br>
&gt;&gt; &gt;   Ynon<br>
&gt;&gt; &gt;<br>
&gt;&gt; &gt; --<br>
&gt;&gt; &gt;<br>
&gt;&gt; &gt; כותב הרצאות ? מדבר מול קהל ? הבלוג שלי לומד לדבר כתוב במיוחד בשבילך.<br>
&gt;&gt; &gt;<br>
&gt;&gt; &gt;<br>
&gt;&gt; &gt; _______________________________________________<br>
&gt;&gt; &gt; Perl mailing list<br>
&gt;&gt; &gt; <a href="mailto:Perl@perl.org.il" target="_blank">Perl@perl.org.il</a><br>
&gt;&gt; &gt; <a href="http://mail.perl.org.il/mailman/listinfo/perl" target="_blank">http://mail.perl.org.il/mailman/listinfo/perl</a><br>
&gt;&gt; _______________________________________________<br>
&gt;&gt; Perl mailing list<br>
&gt;&gt; <a href="mailto:Perl@perl.org.il" target="_blank">Perl@perl.org.il</a><br>
&gt;&gt; <a href="http://mail.perl.org.il/mailman/listinfo/perl" target="_blank">http://mail.perl.org.il/mailman/listinfo/perl</a><br>
&gt;<br>
&gt;<br>
&gt;<br>
&gt; _______________________________________________<br>
&gt; Perl mailing list<br>
&gt; <a href="mailto:Perl@perl.org.il" target="_blank">Perl@perl.org.il</a><br>
&gt; <a href="http://mail.perl.org.il/mailman/listinfo/perl" target="_blank">http://mail.perl.org.il/mailman/listinfo/perl</a><br>
_______________________________________________<br>
Perl mailing list<br>
<a href="mailto:Perl@perl.org.il" target="_blank">Perl@perl.org.il</a><br>
<a href="http://mail.perl.org.il/mailman/listinfo/perl" target="_blank">http://mail.perl.org.il/mailman/listinfo/perl</a></div></div></blockquote></div><br>
</div></div><br>_______________________________________________<br>
Perl mailing list<br>
<a href="mailto:Perl@perl.org.il">Perl@perl.org.il</a><br>
<a href="http://mail.perl.org.il/mailman/listinfo/perl" target="_blank">http://mail.perl.org.il/mailman/listinfo/perl</a><br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div dir="ltr"><div dir="rtl"><br>
כותב הרצאות ? מדבר מול קהל ? הבלוג שלי <a href="http://publicspeakr.blogspot.com/" target="_blank">לומד לדבר</a> כתוב במיוחד בשבילך.<br></div></div><br>
</div></div></div>