Anonymous user
Determine if a string is squeezable: Difference between revisions
→{{header|J}}: boldface run section to accord with style of other sub-heads
(Added J implementation) |
(→{{header|J}}: boldface run section to accord with style of other sub-heads) |
||
Line 1,957:
sq =: ] #~ ~: +. _1 |.!.1 ] ~: 1 |. ]</lang>
'''Run''':
<lang j>require'format/printf' NB. For formatting the output
'C I' =: <"1 |: P =: ; ;"0 1^:(0<#@[)&.>/"1 (({.~ ; (}.~>:)) i.&'|')&> LF cut noun define
| |||