エカつきのブログ = Eka tsuki no blog

macro
modus x
mconstant i j n bykx modus
mcolumn x y
let n=count(x)
do i=1:n
let y(i)=0
  do j=1:n
    if x(i)=x(j)
 let y(i)=1+y(i)
    else
 let y(i)=y(i)
    endif
  enddo
enddo
print x(i) y(i)
let bykx=y(1)
do i=2:n
    if bykx>y(i)
 let bykx=bykx
    else
 let bykx=y(i)
 let modus=x(i)
    endif
enddo
print modus bykx
endmacro