From d7c92b61bd7e0a035ea8ec7f4e515d047982d4a8 Mon Sep 17 00:00:00 2001
From: chirvasitua <chirvasitua@gmail.com>
Date: Thu, 15 Jul 2021 08:55:08 -0400
Subject: 1st commit on 101_lua

---
 challenge-101/stuart-little/lua/ch-2.lua | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100755 challenge-101/stuart-little/lua/ch-2.lua

(limited to 'challenge-101/stuart-little/lua/ch-2.lua')

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))))
-- 
cgit