humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

minor improvement (using vector literals in 'helpGetTrianglesVector', which is in functional-core/app-update.sml

Browse Source
This commit is contained in:
Humza Shahid
2024-07-31 13:34:10 +01:00
parent 95345131ab
commit d90ed8afa2
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
functional-core/app-update.sml
View File

@@ -6,7 +6,7 @@ struct
fun helpGetTrianglesVector (lst, acc) = fun helpGetTrianglesVector (lst, acc) =
case lst of case lst of
{x1, y1, x2, y2, x3, y3} :: tl => {x1, y1, x2, y2, x3, y3} :: tl =>
let val vec = Vector.fromList [x1, y1, x2, y2, x3, y3] let val vec = #[x1, y1, x2, y2, x3, y3]
in helpGetTrianglesVector (tl, vec :: acc) in helpGetTrianglesVector (tl, vec :: acc)
end end
| [] => acc | [] => acc