diff options
| author | chirvasitua <chirvasitua@gmail.com> | 2021-07-15 08:55:08 -0400 |
|---|---|---|
| committer | chirvasitua <chirvasitua@gmail.com> | 2021-07-15 08:55:08 -0400 |
| commit | d7c92b61bd7e0a035ea8ec7f4e515d047982d4a8 (patch) | |
| tree | 91f392ab01861dd2b68740dd12037eb407526c08 /challenge-101/stuart-little/lua/ch-2.lua | |
| parent | 262314e6f2e38d22bf756d8edac7fbcc5af52e25 (diff) | |
| download | perlweeklychallenge-club-d7c92b61bd7e0a035ea8ec7f4e515d047982d4a8.tar.gz perlweeklychallenge-club-d7c92b61bd7e0a035ea8ec7f4e515d047982d4a8.tar.bz2 perlweeklychallenge-club-d7c92b61bd7e0a035ea8ec7f4e515d047982d4a8.zip | |
1st commit on 101_lua
Diffstat (limited to 'challenge-101/stuart-little/lua/ch-2.lua')
| -rwxr-xr-x | challenge-101/stuart-little/lua/ch-2.lua | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/challenge-101/stuart-little/lua/ch-2.lua b/challenge-101/stuart-little/lua/ch-2.lua new file mode 100755 index 0000000000..2f2b02b6ef --- /dev/null +++ b/challenge-101/stuart-little/lua/ch-2.lua @@ -0,0 +1,16 @@ +#!/usr/bin/env lua + +-- run <script> <x1 y1 x2 y2 x3 y3> + +function contains0(t) + local lt90=0 + local tt = table.pack(table.unpack(t)) + for i=1,2 do table.insert(tt,tt[i]) end + for i=1,3 do + local dotP=tt[2*i-1]*tt[2*i+1] + tt[2*i]*tt[2*i+2] + if dotP > 0 then lt90=lt90+1 end + end + return lt90 >= 2 and 0 or 1 +end + +print(contains0(table.pack(table.unpack(arg,1,6)))) |