use itertools::Itertools;
use malachite_base::iterators::prefix_to_string;
use malachite_base::rational_sequences::RationalSequence;
use malachite_base::strings::ToDebugString;
use malachite_base::test_util::bench::{BenchmarkType, run_benchmark};
use malachite_base::test_util::generators::common::{GenConfig, GenMode};
use malachite_base::test_util::runner::Runner;
use malachite_nz::natural::Natural;
use malachite_q::test_util::bench::bucketers::pair_1_rational_bit_bucketer;
use malachite_q::test_util::generators::{
rational_gen, rational_gen_var_7, rational_natural_pair_gen_var_1,
rational_natural_pair_gen_var_2,
};
pub(crate) fn register(runner: &mut Runner) {
register_demo!(runner, demo_rational_into_digits);
register_demo!(runner, demo_rational_to_digits);
register_demo!(runner, demo_rational_into_digits_decimal);
register_demo!(runner, demo_rational_digits);
register_demo!(runner, demo_rational_digits_decimal);
register_bench!(runner, benchmark_rational_to_digits_evaluation_strategy);
register_bench!(runner, benchmark_rational_digits);
}
fn to_string_helper(p: (Vec<Natural>, RationalSequence<Natural>)) -> String {
let (before, after) = p;
let mut s = "(".to_string();
s.push_str(&before.to_debug_string());
s.push_str(", ");
s.push_str(&after.to_string());
s.push(')');
s
}
fn demo_rational_into_digits(gm: GenMode, config: &GenConfig, limit: usize) {
for (n, base) in rational_natural_pair_gen_var_2()
.get(gm, config)
.take(limit)
{
println!(
"({}).into_digits({}) = {}",
n.clone(),
base,
to_string_helper(n.into_digits(&base))
);
}
}
fn demo_rational_to_digits(gm: GenMode, config: &GenConfig, limit: usize) {
for (n, base) in rational_natural_pair_gen_var_2()
.get(gm, config)
.take(limit)
{
println!(
"({}).to_digits({}) = {}",
n,
base,
to_string_helper(n.to_digits(&base))
);
}
}
fn demo_rational_into_digits_decimal(gm: GenMode, config: &GenConfig, limit: usize) {
for n in rational_gen_var_7().get(gm, config).take(limit) {
println!(
"({}).into_digits(10) = {}",
n.clone(),
to_string_helper(n.into_digits(&Natural::from(10u32)))
);
}
}
fn demo_rational_digits(gm: GenMode, config: &GenConfig, limit: usize) {
for (n, base) in rational_natural_pair_gen_var_1()
.get(gm, config)
.take(limit)
{
let (before_point, after_point) = n.digits(&base);
println!(
"({}).digits({}) = ({:?}, {})",
n,
base,
before_point,
prefix_to_string(after_point, 20)
);
}
}
fn demo_rational_digits_decimal(gm: GenMode, config: &GenConfig, limit: usize) {
for n in rational_gen().get(gm, config).take(limit) {
let (before_point, after_point) = n.digits(&Natural::from(10u32));
println!(
"({}).digits(10) = ({:?}, {})",
n,
before_point,
prefix_to_string(after_point, 20)
);
}
}
fn benchmark_rational_to_digits_evaluation_strategy(
gm: GenMode,
config: &GenConfig,
limit: usize,
file_name: &str,
) {
run_benchmark(
"Rational.to_digits(u64)",
BenchmarkType::EvaluationStrategy,
rational_natural_pair_gen_var_2().get(gm, config),
gm.name(),
limit,
file_name,
&pair_1_rational_bit_bucketer("x"),
&mut [
("Rational.into_digits(&base)", &mut |(n, base)| {
no_out!(n.into_digits(&base));
}),
("Rational.to_digits(&base)", &mut |(n, base)| {
no_out!(n.to_digits(&base));
}),
],
);
}
fn benchmark_rational_digits(gm: GenMode, config: &GenConfig, limit: usize, file_name: &str) {
run_benchmark(
"Rational.digits(u64)",
BenchmarkType::Single,
rational_natural_pair_gen_var_1().get(gm, config),
gm.name(),
limit,
file_name,
&pair_1_rational_bit_bucketer("x"),
&mut [(
"Rational.digits(&base).1.take(20).collect_vec()",
&mut |(n, base)| no_out!(n.digits(&base).1.take(20).collect_vec()),
)],
);
}