diff options
author | elioat <hi@eli.li> | 2023-07-13 09:42:47 -0400 |
---|---|---|
committer | elioat <hi@eli.li> | 2023-07-13 09:42:47 -0400 |
commit | 622761017ca37db1f25a4b08957d199d7e720212 (patch) | |
tree | 6a8753af46bff8df9140c2db85b6b875b45067b9 /janet/tmplt/src | |
parent | 0133554853b588aa70eaeb0eaba16d5fdc24b8d3 (diff) | |
download | tour-622761017ca37db1f25a4b08957d199d7e720212.tar.gz |
*
Diffstat (limited to 'janet/tmplt/src')
-rw-r--r-- | janet/tmplt/src/app.janet | 19 |
1 files changed, 2 insertions, 17 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 |