Skip to content

Commit

Permalink
Clean up scale.queues
Browse files Browse the repository at this point in the history
  • Loading branch information
JosephTLyons committed Nov 15, 2024
1 parent 6ec1037 commit 1edca8e
Showing 1 changed file with 14 additions and 14 deletions.
28 changes: 14 additions & 14 deletions src/lenient_parse/internal/scale.gleam
Original file line number Diff line number Diff line change
Expand Up @@ -12,24 +12,24 @@ pub fn queues(
case int.compare(scale_factor, 0) {
order.Eq -> #(whole_digits, fractional_digits)
order.Gt -> {
let #(fractional_digit, fractional_digits) =
fractional_digits
|> queue.pop_front
let #(digit, fractional_digits) =
queue.pop_front(fractional_digits)
|> result.unwrap(#(0, fractional_digits))

let whole_digits = whole_digits |> queue.push_back(fractional_digit)

queues(whole_digits, fractional_digits, scale_factor - 1)
queues(
queue.push_back(whole_digits, digit),
fractional_digits,
scale_factor - 1,
)
}
order.Lt -> {
let #(whole_digit, whole_digits) =
whole_digits
|> queue.pop_back
let #(digit, whole_digits) =
queue.pop_back(whole_digits)
|> result.unwrap(#(0, whole_digits))

let fractional_digits = fractional_digits |> queue.push_front(whole_digit)

queues(whole_digits, fractional_digits, scale_factor + 1)
queues(
whole_digits,
queue.push_front(fractional_digits, digit),
scale_factor + 1,
)
}
}
}
Expand Down

0 comments on commit 1edca8e

Please sign in to comment.