Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Jun 2nd, 2012  |  syntax: None  |  size: 0.46 KB  |  hits: 16  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. [ronald@krautbox ~]$ perl -MO=Concise -e '$==D~~ x.O;'
  2. a  <@> leave[1 ref] vKP/REFC ->(end)
  3. 1     <0> enter ->2
  4. 2     <;> nextstate(main 1 -e:1) v:{ ->3
  5. 9     <2> sassign vKS/2 ->a
  6. 7        <2> smartmatch sK/2 ->8
  7. 3           <$> const[PV "D"] s/BARE ->4
  8. 6           <2> concat[t2] sK/2 ->7
  9. 4              <$> const[PV "x"] s/BARE ->5
  10. 5              <$> const[PV "O"] s/BARE ->6
  11. -        <1> ex-rv2sv sKRM*/1 ->9
  12. 8           <#> gvsv[*=] s ->9
  13. -e syntax OK
create a new version of this paste RAW Paste Data