結果

問題 No.170 スワップ文字列(Easy)
ユーザー _agatan
提出日時 2015-04-24 17:12:52
言語 D
(dmd 2.109.1)
結果
AC  
実行時間 2 ms / 5,000 ms
コード長 485 bytes
コンパイル時間 669 ms
コンパイル使用メモリ 107,576 KB
実行使用メモリ 6,944 KB
最終ジャッジ日時 2024-06-12 02:32:44
合計ジャッジ時間 1,493 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge3
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 21
権限があれば一括ダウンロードができます

ソースコード

diff # 

import std.stdio;
import std.string;
import std.algorithm;
import std.array;
import std.conv;

void main()
{
    auto line = readln().chomp.to!(dchar[]);
    auto allLen = line.length;
    uint[] nums = line.dup.sort!"a < b".group!"a == b".map!"a[1]".array;
    writeln(allLen.fact() / nums.map!(a => fact(a)).reduce!"a * b" - 1);
}

ulong fact(ulong n)
in {
    assert(n >= 0);
}
body {
    ulong ret = 1;
    for (ulong i = n; i > 1; --i) {
        ret *= i;
    }
    return ret;
}
0