Ttykuu

type Coord = x: int; y: int 

let origin = x = 0; y = 0 

let intToCoord [x; y] = x = x; y = y 

let twiceTriangleArea a b c =
 abs (a.x * (b.y - c.y) + b.x * (c.y - a.y) + c.x * (a.y - b.y))

let containsOrigin [a; b; c] =
 twiceTriangleArea a b c = twiceTriangleArea origin a b +
 twiceTriangleArea origin b c +
 twiceTriangleArea origin a c

let solution =
 System.IO.File.ReadLines "triangles.txt"
 |> Seq.map (fun line -> 
 line.Split ',' |> Array.map int |> List.ofArray |> List.chunkBySize 2 |> List.map intToCoord
 )
 |> Seq.filter containsOrigin
 |> Seq.length

printfn "%i" solution

type Coord = x: int; y: int 

let origin = x = 0; y = 0 

let intToCoord [x; y] = x = x; y = y 

let twiceTriangleArea a b c =
 abs (a.x * (b.y - c.y) + b.x * (c.y - a.y) + c.x * (a.y - b.y))

let containsOrigin [a; b; c] =
 twiceTriangleArea a b c = twiceTriangleArea origin a b +
 twiceTriangleArea origin b c +
 twiceTriangleArea origin a c

let solution =
 System.IO.File.ReadLines "triangles.txt"
 |> Seq.map (fun line -> 
 line.Split ',' |> Array.map int |> List.ofArray |> List.chunkBySize 2 |> List.map intToCoord
 )
 |> Seq.filter containsOrigin
 |> Seq.length

printfn "%i" solution

type Coord = x: int; y: int 

let origin = x = 0; y = 0 

let intToCoord [x; y] = x = x; y = y 

let twiceTriangleArea a b c =
 abs (a.x * (b.y - c.y) + b.x * (c.y - a.y) + c.x * (a.y - b.y))

let containsOrigin [a; b; c] =
 twiceTriangleArea a b c = twiceTriangleArea origin a b +
 twiceTriangleArea origin b c +
 twiceTriangleArea origin a c

let solution =
 System.IO.File.ReadLines "triangles.txt"
 |> Seq.map (fun line -> 
 line.Split ',' |> Array.map int |> List.ofArray |> List.chunkBySize 2 |> List.map intToCoord
 )
 |> Seq.filter containsOrigin
 |> Seq.length

printfn "%i" solution

type Coord = x: int; y: int 

let origin = x = 0; y = 0 

let intToCoord [x; y] = x = x; y = y 

let twiceTriangleArea a b c =
 abs (a.x * (b.y - c.y) + b.x * (c.y - a.y) + c.x * (a.y - b.y))

let containsOrigin [a; b; c] =
 twiceTriangleArea a b c = twiceTriangleArea origin a b +
 twiceTriangleArea origin b c +
 twiceTriangleArea origin a c

let solution =
 System.IO.File.ReadLines "triangles.txt"
 |> Seq.map (fun line -> 
 line.Split ',' |> Array.map int |> List.ofArray |> List.chunkBySize 2 |> List.map intToCoord
 )
 |> Seq.filter containsOrigin
 |> Seq.length

printfn "%i" solution

Your Answer

StackExchange.ifUsing("editor", function ()
return StackExchange.using("mathjaxEditing", function ()
StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix)
StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["\$", "\$"]]);
);
);
, "mathjax-editing");

StackExchange.ifUsing("editor", function ()
StackExchange.using("externalEditor", function ()
StackExchange.using("snippets", function ()
StackExchange.snippets.init();
);
);
, "code-snippets");

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "196"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);