Sorano Ryuji · @dragonkz00
24th May 2014 from TwitLonger
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
repeat notemax
noteget xxx,cnt
idx = 0
notesel totallist
repeat notemax
noteget yyy,cnt
if xxx=yyy{
notedel cnt
idx = 1
break
}
loop
noteunsel
loop
totallist = totallist + cntlist
loop
noteunsel
A = 1
notesel totallist
repeat notemax
noteget xxx,cnt
A = A * int(xxx)
loop
noteunsel
mes A