Revisions to How to Thread lists elementwise with the If function?

deleted 1 character in body

Source Link

edited Sep 30, 2022 at 22:40

31.3k
3
29
50

Just another way using MapApply:

MapApply[Function[{x, y}, If[x > y, 1, 0]], Transpose[List[list1, list2]]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Another way using Map:

If[#[[1]] > #[[2]], 1, 0] & /@ Transpose[List[list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Another way using Outer:

Diagonal[Outer[If[#1 > #2, 1, 0] &, list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Using Thread:

If[#[[1]] > #[[2]], 1, 0] & /@ Thread[Greater[list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Just using Thread in a simpler way::

Thread[If[Thread@Greater[list1, list2], 1, 0]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Just another way using MapApply:

MapApply[Function[{x, y}, If[x > y, 1, 0]], Transpose[List[list1, list2]]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Another way using Map:

If[#[[1]] > #[[2]], 1, 0] & /@ Transpose[List[list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Another way using Outer:

Diagonal[Outer[If[#1 > #2, 1, 0] &, list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Using Thread:

If[#[[1]] > #[[2]], 1, 0] & /@ Thread[Greater[list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Just using Thread in a simpler way::

Thread[If[Thread@Greater[list1, list2], 1, 0]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Just another way using MapApply:

MapApply[Function[{x, y}, If[x > y, 1, 0]], Transpose[List[list1, list2]]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Another way using Map:

If[#[[1]] > #[[2]], 1, 0] & /@ Transpose[List[list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Another way using Outer:

Diagonal[Outer[If[#1 > #2, 1, 0] &, list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Using Thread:

If[#[[1]] > #[[2]], 1, 0] & /@ Thread[Greater[list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Just using Thread in a simpler way:

Thread[If[Thread@Greater[list1, list2], 1, 0]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

added 23 characters in body

Source Link

edited Sep 30, 2022 at 22:28

E. Chan-López

31.3k
3
29
50

Just another way using MapApply:

MapApply[Function[{x, y}, If[x > y, 1, 0]], Transpose[List[list1, list2]]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Another way using Map:

If[#[[1]] > #[[2]], 1, 0] & /@ Transpose[List[list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Another way using Outer:

Diagonal[Outer[If[#1 > #2, 1, 0] &, list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Using Thread:

If[#[[1]] > #[[2]], 1, 0] & /@ Thread[Greater[list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Or more simpleJust using Thread in a simpler way::

Thread[If[Thread@Greater[list1, list2], 1, 0]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Just another way using MapApply:

MapApply[Function[{x, y}, If[x > y, 1, 0]], Transpose[List[list1, list2]]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Another way using Map:

If[#[[1]] > #[[2]], 1, 0] & /@ Transpose[List[list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Another way using Outer:

Diagonal[Outer[If[#1 > #2, 1, 0] &, list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Using Thread:

If[#[[1]] > #[[2]], 1, 0] & /@ Thread[Greater[list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Or more simple:

Thread[If[Thread@Greater[list1, list2], 1, 0]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Just another way using MapApply:

MapApply[Function[{x, y}, If[x > y, 1, 0]], Transpose[List[list1, list2]]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Another way using Map:

If[#[[1]] > #[[2]], 1, 0] & /@ Transpose[List[list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Another way using Outer:

Diagonal[Outer[If[#1 > #2, 1, 0] &, list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Using Thread:

If[#[[1]] > #[[2]], 1, 0] & /@ Thread[Greater[list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Just using Thread in a simpler way::

Thread[If[Thread@Greater[list1, list2], 1, 0]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

added 134 characters in body

Source Link

edited Sep 30, 2022 at 22:19

E. Chan-López

31.3k
3
29
50

Just another way using MapApply:

MapApply[Function[{x, y}, If[x > y, 1, 0]], Transpose[List[list1, list2]]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Another way using Map:

If[#[[1]] > #[[2]], 1, 0] & /@ Transpose[List[list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Another way using Outer:

Diagonal[Outer[If[#1 > #2, 1, 0] &, list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Using Thread:

If[#[[1]] > #[[2]], 1, 0] & /@ Thread[Greater[list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Or more simple:

Thread[If[Thread@Greater[list1, list2], 1, 0]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Just another way using MapApply:

MapApply[Function[{x, y}, If[x > y, 1, 0]], Transpose[List[list1, list2]]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Another way using Map:

If[#[[1]] > #[[2]], 1, 0] & /@ Transpose[List[list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Another way using Outer:

Diagonal[Outer[If[#1 > #2, 1, 0] &, list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Using Thread:

If[#[[1]] > #[[2]], 1, 0] & /@ Thread[Greater[list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Just another way using MapApply:

MapApply[Function[{x, y}, If[x > y, 1, 0]], Transpose[List[list1, list2]]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Another way using Map:

If[#[[1]] > #[[2]], 1, 0] & /@ Transpose[List[list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Another way using Outer:

Diagonal[Outer[If[#1 > #2, 1, 0] &, list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Using Thread:

If[#[[1]] > #[[2]], 1, 0] & /@ Thread[Greater[list1, list2]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

Or more simple:

Thread[If[Thread@Greater[list1, list2], 1, 0]]
(*{If[a > x, 1, 0], If[b > y, 1, 0], If[c > z, 1, 0]}*)

added 148 characters in body

Source Link

edited Sep 30, 2022 at 22:10

E. Chan-López

31.3k
3
29
50

Loading

added 155 characters in body

Source Link

edited Sep 30, 2022 at 21:57

E. Chan-López

31.3k
3
29
50

Loading

added 30 characters in body

Source Link

edited Sep 30, 2022 at 21:39

E. Chan-López

31.3k
3
29
50

Loading

added 30 characters in body

Source Link

edited Sep 30, 2022 at 21:33

E. Chan-López

31.3k
3
29
50

Loading

Source Link

created Sep 30, 2022 at 21:24

E. Chan-López

31.3k
3
29
50

Loading

Stack Exchange Network

Return to Answer