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/Maxima/order-two-numerical-lists.maxima
+++ b/Task/Order-two-numerical-lists/Maxima/order-two-numerical-lists.maxima
@ -0,0 +1,13 @@
+"<<"(a,b):=block([n:min(length(a),length(b))],
+catch(for i thru n do (if a[i]#b[i] then throw(is(a[i]<b[i]))),
+throw(is(length(a)<length(b)))))$
+infix("<<")$
+
+[1,2,3] << [1,2,4];
+true
+
+[1,2,3] << [1,2];
+false
+
+[1,2] << [1,2];
+false