fork download

copy

#!sapphire
%行列で扱いやすいように#=-1, .=0 とした。
%扱いやすいように範囲外を-1として6*8行列とした。
def mat #m[[-1,-1,-1,-1,-1,-1,-1,-1],
           [-1,-1,-1, 0, 0,-1,-1,-1], 
           [-1,-1, 0,-1,-1,-1, 0,-1], 
           [-1,-1,-1,-1, 0,-1, 0,-1], 
           [-1, 0, 0, 0,-1,-1,-1,-1],
           [-1,-1,-1,-1,-1,-1,-1,-1]];
 
%等価なラベルをリストとして記憶する。
def equal [];
 
%(i,j)の周辺を含む9か所をマークする。等価なラベルが見つかった場合には記憶する。
def mark(i,j,v)
  let(s,0)(t,0)
    for(s:=i-1,s<=i+1,s++)
      for(t:=j-1,t<=j+1,t++)
        if(mat[s,t] = 0)
          mat[s,t] := v
        else if(mat[s,t] < v && positive?(mat[s,t])) 
          equal := cons(list(v,mat[s,t]),equal)
        else
          #f;
 
 
%走査し等価なラベル分を差し引いて空間数を表示する。
def scan()
  let(i,0)(j,0)(n,0){
    for(i:=2,i<=5,i++)
      for(j:=2,j<=7,j++)
        if(mat[i,j] = 0){
          n++,
          mark(i,j,n)}
        else if(mat[i,j] >= 1)
          mark(i,j,mat[i,j])
        else
          #f,
  answer(n)};
 
 
def answer(n){
  display(n-length(equal)),
  newline(),
  display(equal),
  newline(),
  display(mat)};
 
 
norm> scan();
3
((4 3))
#m((-1 -1 -1 -1 -1 -1 -1 -1)(-1 -1 -1 1 1 -1 -1 -1)(-1 -1 1 -1 -1 -1 2 -1)(-1 -1 -1 -1 3 -1 2 -1)(-1 4 4 3 -1 -1 -1 -1)(-1 -1 -1 -1 -1 -1 -1 -1))#<undef>
norm> 

Main.java:1: error: illegal character: '#'
#!sapphire
^
Main.java:1: error: class, interface, or enum expected
#!sapphire
  ^
Main.java:2: error: illegal character: '#'
%???????????#=-1, .=0 ????
            ^
Main.java:2: error: illegal character: '\u3002'
%???????????#=-1, .=0 ????
                         ^
Main.java:3: error: illegal character: '\u3002'
%????????????-1???6*8??????
                          ^
Main.java:4: error: illegal character: '#'
def mat #m[[-1,-1,-1,-1,-1,-1,-1,-1],
        ^
Main.java:11: error: class, interface, or enum expected
%??????????????????
^
Main.java:11: error: illegal character: '\u3002'
%??????????????????
                  ^
Main.java:14: error: class, interface, or enum expected
%(i,j)??????9??????????????????????????????
^
Main.java:14: error: illegal character: '\u3002'
%(i,j)??????9??????????????????????????????
                     ^
Main.java:14: error: illegal character: '\u3002'
%(i,j)??????9??????????????????????????????
                                          ^
Main.java:24: error: illegal character: '#'
          #f;
          ^
Main.java:27: error: class, interface, or enum expected
%?????????????????????????
^
Main.java:27: error: illegal character: '\u3002'
%?????????????????????????
                         ^
Main.java:38: error: illegal character: '#'
          #f,
          ^
Main.java:42: error: class, interface, or enum expected
def answer(n){
^
Main.java:50: error: class, interface, or enum expected
norm> scan();
^
Main.java:51: error: class, interface, or enum expected
3
^
Main.java:53: error: illegal character: '#'
#m((-1 -1 -1 -1 -1 -1 -1 -1)(-1 -1 -1 1 1 -1 -1 -1)(-1 -1 1 -1 -1 -1 2 -1)(-1 -1 -1 -1 3 -1 2 -1)(-1 4 4 3 -1 -1 -1 -1)(-1 -1 -1 -1 -1 -1 -1 -1))#<undef>
^
Main.java:53: error: illegal character: '#'
#m((-1 -1 -1 -1 -1 -1 -1 -1)(-1 -1 -1 1 1 -1 -1 -1)(-1 -1 1 -1 -1 -1 2 -1)(-1 -1 -1 -1 3 -1 2 -1)(-1 4 4 3 -1 -1 -1 -1)(-1 -1 -1 -1 -1 -1 -1 -1))#<undef>
                                                                                                                                                 ^
20 errors

Standard output is empty