Four sides of square: Difference between revisions

m
more concise, faster
m (J: more efficient)
m (more concise, faster)
Line 216:
 
Implementation:
<lang J>fsos=: {{+./~(+.|.)y{.1)+.1{.~-y}}</lang>
 
Some examples:
6,951

edits