結果

問題 No.1611 Minimum Multiple with Double Divisors
ユーザー 👑 tttmmmyyyy
提出日時 2026-11-10 22:15:51
言語 Fix
(1.6.0 + cp-library + minilib)
コンパイル:
fix_c _filename_
実行:
./a.out
結果
AC  
実行時間 172 ms / 2,000 ms
+ 35µs
コード長 1,340 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 13,296 ms
コンパイル使用メモリ 677,092 KB
実行使用メモリ 9,868 KB
最終ジャッジ日時 2026-11-10 22:16:13
合計ジャッジ時間 20,717 ms
ジャッジサーバーID
（参考情報） 		judge2_0 / judge1_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 37
権限があれば一括ダウンロードができます
コンパイルメッセージ
make: 'lib.o' は更新済みです.

ソースコード

diff #
raw source code 

module Main;

// import BinaryHeap;
// import BoolArray;
import CPLib.Arithmetic;
// import CPLib.Bipartite;
// import CPLib.Bits;
// import CPLib.Convolution;
// import CPLib.DSegtree;
// import CPLib.Graph;
import CPLib.IO;
// import CPLib.LDSegtree;
// import CPLib.LSegtree;
// import CPLib.MaxFlow;
// import CPLib.Memoize;
// import CPLib.MinCostFlow;
// import CPLib.Misc;
// import CPLib.Monoid;
// import CPLib.Segtree;
// import CPLib.String;
// import CPLib.Trait;
// import CPLib.TwoSat;
// import CPLib.UnionFind;
// import CPLib.ZP;
// import HashMap;
// import HashSet;

solve : I64 -> I64 = |x| (
    count_up(2).filter(|n|
        // n倍すると約数の個数が2になるか？
        let ps = factorize(n);
        let rs = ps.map(|(p, _)|
            loop((0, x), |(r, x)|
                if x % p != 0 { r.break };
                let x = x / p;
                let r = r + 1;
                (r, x).continue
            )
        );
        let a = range(0, ps.@size).map(|i| rs.@(i) + 1 + ps.@(i).@1.i64).fold(1, mul);
        let b = range(0, ps.@size).map(|i| rs.@(i) + 1).fold(1, mul);
        a == 2 * b
    ).get_first.as_some
);

main : IO () = (
    let t = *read_i;
    range(0, t).fold_m((), |_, _|
        let x = *read_i;
        let n = solve(x);
        (x*n).to_string.println
    );;
    pure()
);
0