如何計算Fortran系列的模式

Question

如何使用Fortran計算一系列模式？

例如：

1,2,2,3,3,3,4,4,5 
Mode = 3 

Answer 1

如果你的號碼排序（他們似乎是），僞代碼很簡單：

set maxval to -1 
set maxcount to -1 
set count to -1 
set lastval to list[0] - 1 
for every val in list: 
    if val is not equal to lastval: 
     if count is greater than maxcount: 
      set maxval to lastval 
      set maxcount to count 
     set count to 0 
     set lastval to val 
    set count to count plus one 
if maxcount is not equal to -1: 
    print "mode is " maxval " with count of " maxcount 

請記住，這隻會在返回第一個模式，如果有多個。

Answer 2

如果你需要它，你可以找到已經制作好的代碼，它不僅僅是一個練習;例如 Mode at wiki rosettacode.org。如果是鍛鍊，請先嚐試按照其他答案中給出的算法。