{"id":1782,"date":"2015-02-23T09:12:38","date_gmt":"2015-02-23T09:12:38","guid":{"rendered":"http:\/\/www.dyalog.com\/blog\/?p=1782"},"modified":"2018-05-21T13:27:56","modified_gmt":"2018-05-21T13:27:56","slug":"solving-the-2014-apl-problem-solving-competition-its-all-right","status":"publish","type":"post","link":"https:\/\/www.dyalog.com\/blog\/2015\/02\/solving-the-2014-apl-problem-solving-competition-its-all-right\/","title":{"rendered":"Solving the 2014 APL Problem Solving Competition \u2013 It’s All Right"},"content":{"rendered":"

This post is the continuation of the series where we examine some of the problems selected for the 2014 APL Problem Solving Competition<\/a>.<\/p>\n

The problems presented in Phase 1<\/a> of the competition were selected because they could be solved succinctly, generally in a single line of APL code. This makes them well suited for experimentation on TryAPL.org<\/a>.<\/p>\n

\"pyth\"<\/a>Problem 1 of Phase 1, entitled “It’s all right” reads,<\/p>\n

“Write a dfn that takes the length of the legs of a triangle as its left argument, and the length of the hypotenuse as its right argument and returns 1 if the triangle is a right triangle, 0 otherwise.”<\/p>\n

Test cases:\r\n      3 4 {your_solution} 5\r\n1\r\n      2 3 {your_solution} 4\r\n0\r\n<\/code><\/pre>\n
This uses the Pythagorean theorem – A\u00b2 + B\u00b2 = C\u00b2. It’s trivial to implement an almost direct translation of this in APL \u2013 in a dfn, using \u237a[1]<\/code> for A, \u237a[2]<\/code> for B and \u2375<\/code> for C yields:<\/p>\n
right\u2190{((\u237a[1]*2)+(\u237a[2]*2))=\u2375*2}<\/code><\/a><\/pre>\n
This seems rather clunky though… what if we consider the problem as “Are\u00a0the sums of the squares of each argument equal?” To get the sum of the squares, first we can use the composition *\u22182<\/code> (composing the power function *<\/code> with the constant 2) to mean “square” and +\/<\/code> to mean “sum”, and combine them in a 2-item function train (also known as an “atop”): ((+\/)*\u22182)<\/code><\/p>\n
then apply this to each argument: \u00a0\u00a0((+\/)*\u22182)\u00a8\u237a \u2375<\/code><\/p>\n
and compare the results for equality, resulting in the dfn:<\/p>\n
right1\u2190{=\/((+\/)*\u22182)\u00a8\u237a \u2375}<\/code><\/a><\/pre>\n
Still this seems clunky to me. Let’s see…squaring a number is just multiplying the number by itself, so, if we use the monadic commute operator with multiplication, \u00a0\u00a0\u00d7\u2368<\/code>
\nwe get the equivalent of squaring. Then we can use that function in an inner product with addition to also get “sum of the squares”: \u00a0\u00a0+.\u00d7\u2368<\/code><\/p>\n
The rest is essentially the same as in right1<\/code> above:<\/p>\n
right2\u2190{=\/+.\u00d7\u2368\u00a8\u237a \u2375}<\/code><\/a><\/pre>\n
All three of these solutions solve the contest problem. The first one, right<\/code>, is not commutative though \u2013 the legs of the triangle must be supplied as the left argument. However, right1<\/code> and right2<\/code> are commutative and the order of arguments is not significant.<\/p>\n","protected":false},"excerpt":{"rendered":"
This post is the continuation of the series where we examine some of the problems selected for the 2014 APL Problem Solving Competition. The problems presented in Phase 1 of the competition were selected because they could be solved succinctly, … Continue reading →<\/span><\/a><\/p>\n","protected":false},"author":10,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[22],"tags":[],"class_list":["post-1782","post","type-post","status-publish","format-standard","hentry","category-student-competition"],"_links":{"self":[{"href":"https:\/\/www.dyalog.com\/blog\/wp-json\/wp\/v2\/posts\/1782","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.dyalog.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.dyalog.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.dyalog.com\/blog\/wp-json\/wp\/v2\/users\/10"}],"replies":[{"embeddable":true,"href":"https:\/\/www.dyalog.com\/blog\/wp-json\/wp\/v2\/comments?post=1782"}],"version-history":[{"count":16,"href":"https:\/\/www.dyalog.com\/blog\/wp-json\/wp\/v2\/posts\/1782\/revisions"}],"predecessor-version":[{"id":5180,"href":"https:\/\/www.dyalog.com\/blog\/wp-json\/wp\/v2\/posts\/1782\/revisions\/5180"}],"wp:attachment":[{"href":"https:\/\/www.dyalog.com\/blog\/wp-json\/wp\/v2\/media?parent=1782"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.dyalog.com\/blog\/wp-json\/wp\/v2\/categories?post=1782"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.dyalog.com\/blog\/wp-json\/wp\/v2\/tags?post=1782"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}