Score a hand of Hearts
R, 85 77 74 bytes

function(x,z=sapply(x,function(x)sum(x&gt;0)+any(x&lt;1)*13))abs(z-any(z&gt;25)*26)


Unnamed function that takes an R-list as input. Works by counting the number of elements &gt;0 and adds 13 if any element within each vector is &lt;1 (i.e. queen of spades) and store as z.

If any element in z is &gt;25, return 26-z, else return z.

Try it on R-fiddle