about summary refs log tree commit diff stats
path: root/janet/tmplt
diff options
context:
space:
mode:
authorelioat <hi@eli.li>2023-07-13 09:42:47 -0400
committerelioat <hi@eli.li>2023-07-13 09:42:47 -0400
commit622761017ca37db1f25a4b08957d199d7e720212 (patch)
tree6a8753af46bff8df9140c2db85b6b875b45067b9 /janet/tmplt
parent0133554853b588aa70eaeb0eaba16d5fdc24b8d3 (diff)
downloadtour-622761017ca37db1f25a4b08957d199d7e720212.tar.gz
*
Diffstat (limited to 'janet/tmplt')
-rw-r--r--janet/tmplt/src/app.janet19
-rw-r--r--janet/tmplt/test/sum.janet2
2 files changed, 3 insertions, 18 deletions
diff --git a/janet/tmplt/src/app.janet b/janet/tmplt/src/app.janet
index f67e8e3..f28aaf8 100644
--- a/janet/tmplt/src/app.janet
+++ b/janet/tmplt/src/app.janet
@@ -1,18 +1,3 @@
-(defn sum3
-  "Solve the 3SUM problem in O(n^2) time."
-  [s]
-  (def tab @{})
-  (def solutions @{})
-  (def len (length s))
-  (for k 0 len
-    (put tab (s k) k))
-  (for i 0 len
-    (for j 0 len
-      (def k (get tab (- 0 (s i) (s j))))
-      (when (and k (not= k i) (not= k j) (not= i j))
-        (put solutions {i true j true k true} true))))
-  (map keys (keys solutions)))
 
-(let [arr @[2 4 1 3 8 7 -3 -1 12 -5 -8]]
-  (printf "3sum of %j: " arr)
-  (printf "%j" (sum3 arr)))
\ No newline at end of file
+(defn add [a b]
+  (+ a b))
\ No newline at end of file
diff --git a/janet/tmplt/test/sum.janet b/janet/tmplt/test/sum.janet
index be82870..3086324 100644
--- a/janet/tmplt/test/sum.janet
+++ b/janet/tmplt/test/sum.janet
@@ -1,4 +1,4 @@
 (use /src/app)
 (use judge)
 
-(test (sum3 arr))
\ No newline at end of file
+(test (add 2 3) 4)
\ No newline at end of file