tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Order-two-numerical-lists/Mathematica/order-two-numerical-lists.math
+++ b/Task/Order-two-numerical-lists/Mathematica/order-two-numerical-lists.math
@ -0,0 +1,8 @@
+order[List1_, List2_] := With[{
+   L1 = List1[[1 ;; Min @@ Length /@ {List1, List2}]],
+   L2 = List2[[1 ;; Min @@ Length /@ {List1, List2}]]
+},
+   If [Thread[Order[L1, L2]] == 0,
+   Length[List1] < Length[List2],
+   Thread[Order[L1, L2]] == 1
+   ]]