@bbaaiiaannaann.bsky.social
just half-cut the string and int64 them!
January 16, 2025 at 12:14 PM
just half-cut the string and int64 them!
advanced？ the title is quite misleading.
January 13, 2025 at 4:24 PM
advanced？ the title is quite misleading.
Seq.distinct doesn't sort
let arrow0 = a0 |> Seq.concat |> Seq.distinct |>Seq.sort|> Seq.last // ascii, '#' < '.' < any_arrow_char
let arrow0 = a0 |> Seq.concat |> Seq.distinct |>Seq.sort|> Seq.last // ascii, '#' < '.' < any_arrow_char
December 24, 2024 at 3:40 AM
Seq.distinct doesn't sort
let arrow0 = a0 |> Seq.concat |> Seq.distinct |>Seq.sort|> Seq.last // ascii, '#' < '.' < any_arrow_char
let arrow0 = a0 |> Seq.concat |> Seq.distinct |>Seq.sort|> Seq.last // ascii, '#' < '.' < any_arrow_char
I'm learning f# too, surprised every day.
December 17, 2024 at 8:24 AM
I'm learning f# too, surprised every day.
no regex:
![//d4a_no_regex.fsx
"input4.txt"
|> System.IO.File.ReadAllLines
|> fun ss ->
let s0 = ss |> Seq.map (fun str -> str.ToCharArray() |> Seq.ofArray)
let s1 = ss |> Seq.transpose
let s2 =
ss
|> Seq.indexed
|> Seq.map (fun (n, line) -> (String.replicate n "_") + line)
|> Seq.transpose
let s3 =
ss
|> Seq.rev
|> Seq.indexed
|> Seq.map (fun (n, line) -> (String.replicate n "_") + line)
|> Seq.transpose
Seq.concat [ s0; s1; s2; s3 ]
|> Seq.collect (Seq.windowed 4)
|> Seq.filter (fun a -> a = [| 'X'; 'M'; 'A'; 'S' |] || a = [| 'S'; 'A'; 'M'; 'X' |])
|> Seq.length
|> printfn "%d"](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:tygatvz6jwe6qcoikji6g3jq/bafkreie5frhztr4osbdsfljnmqoqjnhit66hcyaomwssxgewdm62np6qj4@jpeg)
December 17, 2024 at 8:18 AM
no regex: