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

minor changes to saved format

Browse Source
This commit is contained in:
Humza Shahid
2024-08-29 03:59:47 +01:00
parent 1fdd4f33ec
commit 84b7a6a2f5
1 changed files with 6 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
imperative-shell/file-thread.sml
View File

@@ -15,20 +15,14 @@ struct
{x1, y1, x2, y2, x3, y3} :: tl => {x1, y1, x2, y2, x3, y3} :: tl =>
let let
val triString = String.concat val triString = String.concat
[ "x1:" [ "x " , Real32.toString x1
, Real32.toString x1 , " y " , Real32.toString y1
, " y1:"
, Real32.toString y1
, " x2:" , " x " , Real32.toString x2
, Real32.toString x2 , " y " , Real32.toString y2
, " y2:"
, Real32.toString y2
, " x3:" , " x " , Real32.toString x3
, Real32.toString x3 , " y " , Real32.toString y3
, " y3:"
, Real32.toString y3
, "\n" , "\n"
] ]