Help for this page

Select Code to Download


  1. or download this
    while(<>){$a=a;$a++while/$a/i;push@{$_[y///c]},$_ if$a gt f}@_=map$_?@
+$_:(),@_
  2. or download this
    while(<>){$a=a;$a++while/$a/i;push@{$_[y///c]},$_ if$a gt f}@_=map$_?@
+$_:(),@_;print$_[0]
  3. or download this
    for(<>){$a=a;$a++while/$a/i;push@{$_[y///c]},$_ if$a gt f}@_=map$_?@$_
+:(),@_;print$_[0]
  4. or download this
    for(<>){$a=a;$a++while/$a/i;push@{$_[y///c]},$_ if$a gt f}@_=map$_?@$_
+:(),@_