aylac.top
+20
2015/10/gleam/gleam.toml
+20
2015/10/gleam/gleam.toml
···
···
1
+
name = "main"
2
+
version = "1.0.0"
3
+
4
+
# Fill out these fields if you intend to generate HTML documentation or publish
5
+
# your project to the Hex package manager.
6
+
#
7
+
# description = ""
8
+
# licences = ["Apache-2.0"]
9
+
# repository = { type = "github", user = "", repo = "" }
10
+
# links = [{ title = "Website", href = "" }]
11
+
#
12
+
# For a full reference of all the available options, you can have a look at
13
+
# https://gleam.run/writing-gleam/gleam-toml/.
14
+
15
+
[dependencies]
16
+
gleam_stdlib = ">= 0.44.0 and < 2.0.0"
17
+
simplifile = ">= 2.3.0 and < 3.0.0"
18
+
19
+
[dev-dependencies]
20
+
gleeunit = ">= 1.0.0 and < 2.0.0"
+14
2015/10/gleam/manifest.toml
+14
2015/10/gleam/manifest.toml
···
···
1
+
# This file was generated by Gleam
2
+
# You typically do not need to edit this file
3
+
4
+
packages = [
5
+
{ name = "filepath", version = "1.1.2", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "filepath", source = "hex", outer_checksum = "B06A9AF0BF10E51401D64B98E4B627F1D2E48C154967DA7AF4D0914780A6D40A" },
6
+
{ name = "gleam_stdlib", version = "0.65.0", build_tools = ["gleam"], requirements = [], otp_app = "gleam_stdlib", source = "hex", outer_checksum = "7C69C71D8C493AE11A5184828A77110EB05A7786EBF8B25B36A72F879C3EE107" },
7
+
{ name = "gleeunit", version = "1.7.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleeunit", source = "hex", outer_checksum = "CD701726CBCE5588B375D157B4391CFD0F2F134CD12D9B6998A395484DE05C58" },
8
+
{ name = "simplifile", version = "2.3.0", build_tools = ["gleam"], requirements = ["filepath", "gleam_stdlib"], otp_app = "simplifile", source = "hex", outer_checksum = "0A868DAC6063D9E983477981839810DC2E553285AB4588B87E3E9C96A7FB4CB4" },
9
+
]
10
+
11
+
[requirements]
12
+
gleam_stdlib = { version = ">= 0.44.0 and < 2.0.0" }
13
+
gleeunit = { version = ">= 1.0.0 and < 2.0.0" }
14
+
simplifile = { version = ">= 2.3.0 and < 3.0.0" }
+37
2015/10/gleam/src/main.gleam
+37
2015/10/gleam/src/main.gleam
···
···
1
+
import gleam/int
2
+
import gleam/io.{println}
3
+
import gleam/list
4
+
import gleam/result.{unwrap}
5
+
import gleam/string.{trim}
6
+
import simplifile.{read}
7
+
8
+
fn look_and_say(input, output, last_char, last_char_count, i) {
9
+
let char = string.slice(input, i, 1)
10
+
case char == last_char {
11
+
True -> look_and_say(input, output, char, last_char_count + 1, i + 1)
12
+
False -> {
13
+
let output = output <> int.to_string(last_char_count) <> last_char
14
+
case char != "" {
15
+
True -> look_and_say(input, output, char, 1, i + 1)
16
+
False -> output
17
+
}
18
+
}
19
+
}
20
+
}
21
+
22
+
fn look_and_say_helper(input) {
23
+
let char = string.slice(input, 0, 1)
24
+
look_and_say(input, "", char, 1, 1)
25
+
}
26
+
27
+
pub fn main() {
28
+
let input = read(from: "../input.txt") |> unwrap("") |> trim()
29
+
30
+
let res =
31
+
list.range(1, 40)
32
+
|> list.fold(input, fn(acc, i) {
33
+
echo i
34
+
look_and_say_helper(acc)
35
+
})
36
+
println(string.length(res) |> int.to_string)
37
+
}