diff options
| author | HVukman <peterslopp@googlemail.com> | 2025-08-08 17:32:14 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-08-08 17:32:14 +0200 |
| commit | 752dd83428a0952a490a7f759f96e4daad8b67be (patch) | |
| tree | fa582fbe368e300bc708c1319c17eeb934831858 | |
| parent | df447c718d6659e8d01603ce895296c62e1bab1d (diff) | |
| download | perlweeklychallenge-club-752dd83428a0952a490a7f759f96e4daad8b67be.tar.gz perlweeklychallenge-club-752dd83428a0952a490a7f759f96e4daad8b67be.tar.bz2 perlweeklychallenge-club-752dd83428a0952a490a7f759f96e4daad8b67be.zip | |
Update 333_p1.fs
| -rw-r--r-- | challenge-333/hvukman/f#/333_p1.fs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/challenge-333/hvukman/f#/333_p1.fs b/challenge-333/hvukman/f#/333_p1.fs index 7bebaaf2ac..cc2b153ebb 100644 --- a/challenge-333/hvukman/f#/333_p1.fs +++ b/challenge-333/hvukman/f#/333_p1.fs @@ -11,5 +11,8 @@ let det (x:int array list) = let x1,x2,x3 = x[0].[0],x[1].[0],x[2].[0] let y1,y2,y3 = x[0].[1],x[1].[1],x[2].[1] let det = x1*y2 + x2*y3 + x3*y1 - x1*y3 - x2*y1 - x3*y2 if det =0 then printf "%s\n" "true" else printf "%s\n" "false" + +for x in inputs_1 do + det (x) |