fork download 
  1. program hash_value
  2.     implicit none
  3.  
  4.     character(len=50) :: gakuseki, name
  5.     integer :: i, hash
  6.  
  7.     gakuseki = "202401376"
  8.     name = "yamada"
  9.  
  10.     hash = 0
  11.  
  12.     do i = 1, len_trim(gakuseki)
  13.         hash = hash + ichar(gakuseki(i:i))
  14.     end do
  15.  
  16.     do i = 1, len_trim(name)
  17.         hash = hash + ichar(name(i:i))
  18.     end do
  19.  
  20.     print *, "ハッシュ値 =", hash
  21.  
  22. end program hash_value
Success #stdin #stdout 0s 5312KB
comments (?)
stdin 
Standard input is empty
stdout 
 ハッシュ値 =        1078
https://ideone.com/R8H8Mh
language:
Fortran (gfortran 8.3)
created:
2 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!