User Tools

Site Tools


perl:sets

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Next revision
Previous revision
sets [2008/07/29 08:39] – created tkbletscperl:sets [2009/08/13 09:57] (current) – Page moved from sets to perl:sets tkbletsc
Line 1: Line 1:
-    * Consider finding the union and intersection of two unique arrays @a and @b:+Consider finding the union and intersection of two unique arrays @a and @b:
  
-          foreach $e (@a) { $union{$e} = 1 } +<code perl> 
-          foreach $e (@b) { +foreach $e (@a) { $union{$e} = 1 } 
-              if ( $union{$e} ) { $isect{$e} = 1 } +foreach $e (@b) { 
-              $union{$e} = 1; + if ( $union{$e} ) { $isect{$e} = 1 } 
-          + $union{$e} = 1; 
-          @union = keys %union; +
-          @isect = keys %isect;+@union = keys %union; 
 +@isect = keys %isect; 
 +</code>
  
-    * This would be more idiomatically written as: +This would be more idiomatically written as:
- +
-          foreach $e (@a, @b) { $union{$e}++ && $isect{$e}++ } +
-          @union = keys %union; +
-          @isect = keys %isect;+
  
 +<code perl>
 +foreach $e (@a, @b) { $union{$e}++ && $isect{$e}++ }
 +@union = keys %union;
 +@isect = keys %isect;
 +</code>
  
perl/sets.txt · Last modified: 2009/08/13 09:57 by tkbletsc

Donate Powered by PHP Valid HTML5 Valid CSS Driven by DokuWiki