Exactly three adjacent 3 in lists: Difference between revisions

=={{header|F_Sharp|F#}}==

<lang fsharp>

// Exactly three adjacent 3 in lists. Nigel Galloway: December 8th., 2021

let n=[[9;3;3;3;2;1;7;8;5];[5;2;9;3;3;7;8;4;1];[1;4;3;6;7;3;8;3;2];[1;2;3;4;5;6;7;8;9];[4;6;8;7;2;3;3;3;1]]

n|>List.iter(fun n->printfn "%A" (n|>|>List.windowed 3|>List.exists(fun(n::g::l::_)->n=3 && g=3 && l=3))

</lang>

{{out}}

<pre>

true

false

false

false

true

</pre>