fork download
copy 
  1. program TEST
  2. 	! your code goes here
  3. 	stop
  4. end
Success #stdin #stdout 0.01s 5288KB
comments (?)
stdin
copy 
program hash_function
    implicit none

    character(len=50) :: str
    integer :: i, hash

    ! 学籍番号と名前を連結
    str = "202200680NishidaHiroki"

    hash = 0

    do i = 1, len_trim(str)
        hash = mod(hash * 31 + ichar(str(i:i)), 100000)
    end do

    print *, "Hash Value =", hash

end program hash_function
stdout
copy 
Standard output is empty
https://ideone.com/nrhsuW
language:
Fortran (gfortran 8.3)
created:
4 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!