mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-09-10 06:46:08 +00:00
Code Issues 1 Releases Wiki Activity

Fix example.

Browse Source
This commit is contained in:
Calvin Rose
2019-03-21 14:32:08 -04:00
parent 94a2084723
commit 1e299632e4
1 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
examples/maxtriangle.janet
View File

@@ -2,10 +2,8 @@
# of the triangle to the leaves of the triangle. # of the triangle to the leaves of the triangle.
(defn myfold [xs ys] (defn myfold [xs ys]
(let [xs1 (tuple/prepend xs 0) (let [m1 (map + [;xs 0] ys)
xs2 (tuple/append xs 0) m2 (map + [0 ;xs] ys)]
m1 (map + xs1 ys)
m2 (map + xs2 ys)]
(map max m1 m2))) (map max m1 m2)))
(defn maxpath [t] (defn maxpath [t]