tenderlove

l={};s=m=[];i=pc=mc=0
alias p proc
h={'>':p{mc+=1},'<':p{mc-=1},'+':p{m[mc]+=1},'-':p{m[mc]-=1},'.':p{putc m[mc]}}
j={'[':->(i){s<<i;->(){pc=l[pc-1]+1 if m[mc]==0}},']':->(i){o=s.pop;l[o]=i;p{pc=o}}}
ins=DATA.each_char.map{|c|c=:"#{c}";x=(j[c]||->(_){h[c]||p{}}).(i);i+=1;x}
while k=ins[pc];pc+=1;m[mc]||=0;k.();end

__END__
[ This program prints "Hello World!" and a newline to the screen, its
  length is 106 active command characters. [It is not the shortest.]

djmaze

class BankAccount < ActiveRecord::Base

  # Umsätze von start_date bis end_date abrufen
  # * passport_type, passphrase, pin und file kommen in dieser Implementation aus der zugrunde liegenden Tabelle.
  # * Wenn passport_type = "PinTan" ist, wird die pin verwendet.
  # * Wenn passport_type = "RDHNew" ist, wird die Schlüsseldatei aus filename verwendet und mit der passphrase entschlüsselt. 
  def get_transactions(start_date, end_date) 
    HBCIUtils.setParam("client.passport.#{passport_type}.filename", filename)                                      
    HBCIUtils.setParam("client.passport.#{passport_type}.init", '1')                                               
                                                                                                            

svenwin

$z = array(
  array(
    1,array(9,9,9),2,3,4
  ),
  array(
    3,5,6
  )
);
$array_flatten = function($array, $flatArray = array()) {
  array_walk_recursive(