結果

問題 No.69 文字を自由に並び替え
コンテスト
ユーザー iLL
提出日時 2026-03-05 22:31:47
言語 Fortran
(gFortran 15.2.0)
コンパイル:
gfortran _filename_ -O2 -o ./a.out
実行:
./a.out
結果
AC  
実行時間 2 ms / 5,000 ms
コード長 678 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 757 ms
コンパイル使用メモリ 40,072 KB
実行使用メモリ 7,720 KB
最終ジャッジ日時 2026-03-05 22:32:17
合計ジャッジ時間 1,238 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 15
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

program main
    implicit none
    integer :: prime_numbers(26) = (/2, 3, 5, 7, 11, 13, 17, 19, 23, 29, &
        31, 37, 41, 43, 47, 53, 59, 61, 67, 71, &
        73, 79, 83, 89, 97, 101/)
    integer :: i
    integer(16) :: A_num = 1, B_num = 1
    character(10) :: A, B

    read *, A
    read *, B

    ! A を数値化
    do i = 1, len_trim(A)
        A_num = A_num * prime_numbers(iachar(A(i:i)) - iachar('a') + 1)
    end do
    ! B を数値化
    do i = 1, len_trim(A)
        B_num = B_num * prime_numbers(iachar(B(i:i)) - iachar('a') + 1)
    end do
    
    if (A_num == B_num) then
        print *, 'YES'
    else
        print *, 'NO'
    end if
end program main
0