#Mathematica (削除) 62 47 (削除ここまで) 33 bytes
With 14 bytes saved thanks to MartinE.
FreeQ[#⋂#2&Partition[#,2,1],{}]&
FreeQ[#⋂#2&Partition[#,2,1],{}]&[{{1},{1,2},{2,0,3},{0},{3,1}}]
False
FreeQ[#⋂#2&Partition[#,2,1],{}]&[{{1},{1,2},{2,0,3},{0},{3,0}}]
True
DavidC
- 25.5k
- 2
- 53
- 106