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
}