def d(w,c)s=->w{c.map{|d|(d&[w])[0]?0:d-[-w]}-[0]};c[0]?(v=c[0][0])?d(w+[v],s[v])||d(w+[-v],s[-v]):!1:w end
Ah, Haskell code golf. It’s like APL, but for Monads instead of matrices!
Ah, Haskell code golf. It’s like APL, but for Monads instead of matrices!