#Mathematica (削除) 62 47 (削除ここまで) 35 bytes
Mathematica (削除) 62 47 (削除ここまで) 35 bytes
With 12 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
#Mathematica (削除) 62 47 (削除ここまで) 35 bytes
With 12 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
Mathematica (削除) 62 47 (削除ここまで) 35 bytes
With 12 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
#Mathematica (削除) 62 47 (削除ここまで) 3335 bytes
With 1412 bytes saved thanks to MartinE.
FreeQ[#⋂#2&Partition[#FreeQ[#⋂#2&@@@Partition[#,2,1],{}]&
FreeQ[#⋂#2&Partition[#FreeQ[#⋂#2&@@@Partition[#,2,1],{}]&[{{1},{1,2},{2,0,3},{0},{3,1}}]
False
FreeQ[#⋂#2&Partition[#FreeQ[#⋂#2&@@@Partition[#,2,1],{}]&[{{1},{1,2},{2,0,3},{0},{3,0}}]
True
#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
#Mathematica (削除) 62 47 (削除ここまで) 35 bytes
With 12 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
#Mathematica (削除) 62 47 (削除ここまで) 4733 bytes
(!MemberQ[Intersection@@@Partition[#,2,1],{}])& With 14 bytes saved thanks to MartinE.
FreeQ[#⋂#2&Partition[#,2,1],{}]&
(!MemberQ[Intersection@@@Partition[#,2,1],{}])&[{{1}, {1, 2}, {2, 0, 3}, {0}, {3,1}}]
FreeQ[#⋂#2&Partition[#,2,1],{}]&[{{1},{1,2},{2,0,3},{0},{3,1}}]
False
(!MemberQ[Intersection@@@Partition[#FreeQ[#⋂#2&Partition[#,2,1],{}])&[]&[{{1},{1,2},{2,0,3},{0},{3,0}}]
True
#Mathematica (削除) 62 (削除ここまで) 47 bytes
(!MemberQ[Intersection@@@Partition[#,2,1],{}])&
(!MemberQ[Intersection@@@Partition[#,2,1],{}])&[{{1}, {1, 2}, {2, 0, 3}, {0}, {3,1}}]
False
(!MemberQ[Intersection@@@Partition[#,2,1],{}])&[{{1},{1,2},{2,0,3},{0},{3,0}}]
True
#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