Sorano Ryuji · @dragonkz00
24th May 2014 from TwitLonger
#include "longint.hsp"
A = longint(1)
totallist = ""
notesel cntlist
repeat 19,2
pcode = cnt
idx = 2
cntlist = ""
notesel cntlist
repeat
if pcode \ idx = 0{
noteadd str(idx)
pcode = pcode / idx
idx = 1
}
idx++
if pcode = 1 : break
loop
idx = 0
totallist2 = totallist
repeat notemax
noteget xxx,cnt
notesel totallist2
repeat notemax
noteget yyy,cnt
if xxx=yyy: idx++ : notedel cnt : break
loop
noteunsel
loop
if notemax = idx : mes "バッティング:"+cnt
if notemax ! idx{
A = A * cnt
totallist = totallist + cntlist
}
loop
noteunsel
mes A