<?xml version="1.0"?>
<rss version="2.0">
  <channel>
    <title>Advogato blog for JonRock</title>
    <link>http://www.advogato.org/person/JonRock/</link>
    <description>Advogato blog for JonRock</description>
    <language>en-us</language>
    <generator>mod_virgule</generator>
    <pubDate>Mon, 8 Sep 2008 16:20:35 GMT</pubDate>
    <item>
      <pubDate>Thu, 20 Jul 2000 23:44:27 GMT</pubDate>
      <title>20 Jul 2000</title>
      <link>http://www.advogato.org/person/JonRock/diary.html?start=1</link>
      <guid>http://www.advogato.org/person/JonRock/diary.html?start=1</guid>
      <description>&lt;p&gt;Egad, working with chips is an unfamiliar hassle.  It's 
all OK so long as it's just verilog, but when you finally 
decide you're done you have to take all of your work off of 
the unix box, run it through donglified software on NT box 
A to generate a weird binary file, then run it through 
software on NT box B to actually download it into the 
FPGA.  That's messed up.

&lt;p&gt; &lt;p&gt;On the other hand, once the scope is actually attached 
to the FPGA, it's pretty neat to see all the electrons 
dance.  "See that piece of rock?  Today I made it count to 
16."  Also, any productive hassle is preferable to the non-
productivity of sysadminning.

&lt;p&gt; &lt;p&gt;More perl:
&lt;p&gt;&lt;tt&gt;# nthmost 3, (1, 5, 2, 4, 3) ==&amp;gt; 2&lt;br&gt;
# (indexed from 0)&lt;br&gt;
sub nthmost ($@) { my ($n) = shift; return ((sort {$b 
&amp;lt;=&amp;gt; 
$a} @_)[$n]); }&lt;br&gt;
&lt;/tt&gt;
&lt;p&gt;Unfortunately it's O(n log n) even if $n is 0, but 
oneliners are nice anyway.</description>
    </item>
    <item>
      <pubDate>Tue, 18 Jul 2000 22:35:27 GMT</pubDate>
      <title>18 Jul 2000</title>
      <link>http://www.advogato.org/person/JonRock/diary.html?start=0</link>
      <guid>http://www.advogato.org/person/JonRock/diary.html?start=0</guid>
      <description>&lt;p&gt;I finished my month-long project a couple days early 
after a brainstorm yesterday, so I had a beer with lunch 
today.  Don't tell my boss.

&lt;p&gt; &lt;p&gt;Here's a nifty perl snippet I came up with during the 
course of the project:

&lt;p&gt; &lt;tt&gt;
# uniq(("A","A","B","A","C","B")) ==&amp;gt; ("C","A","B")&lt;br&gt;
# Order is not preserved.&lt;br&gt;
sub uniq { return keys %{{map {$_ =&amp;gt; $_} @_}} }&lt;br&gt;
&lt;/tt&gt;</description>
    </item>
  </channel>
</rss>
