[Jprogramming] Faster deb

[Linda Alvord]

Also

   x=: 'the   better angels  of  our  nature'
   dbx2=: 13 :'(-.''  ''E.y)#y'
   dbx2
] #~ [: -. '  ' E. ]
   dbx2 x
the better angels of our nature
   $dbx2 x
31

   db2=: 13 :''' '',(dbx y),'' '''
   db2
' ' , ' ' ,~ dbx
   db2 x 
 the better angels of our nature 
   $db2 x
33

J is so good at simplifying what I write!

Linda


-----Original Message-----
From: programming-bounces at jsoftware.com
[mailto:programming-bounces at jsoftware.com] On Behalf Of Roger Hui
Sent: Wednesday, January 04, 2012 9:13 PM
To: Programming forum
Subject: Re: [Jprogramming] Faster deb

   dbx=: #~ -.@('  '&E.)
   db=: dbx&.(,&' ')&.(' '&,)

   x=: 'the   better angels  of   our  nature'

   '>',(db x),'<'
>the better angels of our nature<
   '>',(db ' ',x),'<'
>the better angels of our nature<
   '>',(db x,' '),'<'
>the better angels of our nature<
   '>',(db ' ',x,' '),'<'
>the better angels of our nature<

   '>',(db '     '),'<'
><
   '>',(db ''),'<'
><
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm