Hit&Blow int配列版 from HSP3

昨日HSP3で作ったHit&Blowのint配列使用版。HSPは配列周りの仕様がとてつもなく貧弱なので愚直にforeachを回し続ける。
yosgspec
2020/8/19 20:28
タグ：
タグはありません
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
#runtime "hsp3cl"
#cmpopt varinit 1
randomize
#module Program
    #defcfunc getDigit
        sdim ln
        repeat
            mes "桁数を入力してください > ",1
            input ln,,2
            digit=int(ln)
            if 1<=digit & digit<=9: break
            mes "1-9の数字を入力してください。"
        loop
    return digit
    #deffunc refSeq int _digit,array _seq
        dim seq,10
        foreach seq
            seq.cnt=cnt
        loop
        repeat length(seq)-1,1: i=length(seq)-cnt
            r=rnd(i+1)
            tmp=seq.i
            seq.i=seq.r
            seq.r=tmp
        loop
        dim _seq,_digit
        foreach _seq
            _seq.cnt=seq.cnt
        loop
    return
    #deffunc refInputSeq int _digit,int _chkCnt,array _seq
        sdim seq
        numList="0123456789"
        sdim ln
        repeat
            mes strf("[%d] ",_chkCnt),2
            input ln,,2
            sdim seq,,strlen(ln)
            foreach seq
                seq.cnt=strmid(ln,cnt,1)
            loop
            isDigit=_digit=length(seq)
            isNum=1
            foreach seq
                if -1=instr(numList,,seq.cnt){
                    isNum=0
                    break
                }
            loop
            isUnique=1
            foreach seq
                i=cnt
                foreach seq
                    if i!cnt && seq.i=seq.cnt {
                        isUnique=0
                        break
                    }
                loop
                if 0=isUnique: break
            loop
            if isDigit & isNum & isUnique: break
            mes "入力が不正です。"
        loop
        foreach seq
            _seq.cnt=seq.cnt
        loop
    return ln
    #deffunc main
        digit=getDigit()
        dim ans
        refSeq digit,ans
        repeat
            dim user
            refInputSeq digit,cnt,user
            hit=0
            blow=0
            foreach user
                if ans.cnt=user.cnt {
                    hit++
                }
                else {
                    i=cnt
                    foreach ans
                        if user.i=ans.cnt {
                            blow++
                            break
                        }
                    loop
                }
            loop
            mes strf("hit: %d blow: %d",hit,blow)
            if hit=digit: break
        loop
        mes "Congratulation!"
        sdim ln
        input ln,,2
    return
#global
main
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
このコードをツイートする