#J, 69 chars#
(([*[:+/[:%[:q:0-])`1:`(1:`([*[:+/[:%[:q:])@.([:*[:<:]))@.([:>:[:*]))
Sample input:
(([*[:+/[:%[:q:0-])`1:`(1:`([*[:+/[:%[:q:])@.([:*[:<:]))@.([:>:[:*])) 8
12
Notes:
Too many exceptions to handle...
Leaky Nun
- 50.1k
- 6
- 110
- 284