Help for this page

Select Code to Download


  1. or download this
    sub f{
    map{/=>/?$b=$a:$a&&$a!~/=>/?push@{$x{$b}},$a:0;$a=$_}(@_,'');\%x
    }
    
  2. or download this
    sub f {
    map{/=>/?$b=$a:$a&&$a!~/=>/&&push@{$x{$b}},$a;$a=$_}(@_,'');\%x
    }
    
  3. or download this
    sub f {
    for(@_,''){/=>/?$b=$a:$a&&$a!~/=>/&&push@{$x{$b}},$a;$a=$_}\%x
    }