fork download

copy

#!sapphire
 
def size 5;
 
def mat makeMat(size,size);
 
%配置を探索する。
def search()
  combination(safe?,size,directProduct(size));
 
%n*nの直積をつくり行列の位置とする。
def directProduct(n)
  let(i,0)(j,0)(ls,[]){
    for(i:=1,i<=n,i++)
      for(j:=1,j<=n,j++)
        ls := cons(list(i,j),ls),
    ls};
 
%リストからｎ個の組み合わせを作り関数fに渡す。
def combination(f,n,ls){
  def comb(n,ls,a)
        if(n=0)
          f(reverse(a))
        else if(length(ls)=n)
          f(append(reverse(a),ls))
        else{
          comb(n-1,cdr(ls),cons(car(ls),a)),
          comb(n,cdr(ls),a)},
  if(n>length(ls))
    #f
  else
    comb(n,ls,[])
};
 
%距離を記憶する場所
def lengthLs [];
 
%直積でつくった位置の行列の要素を１とする。他は０。
def writeBoard(ls){
  initBoard(),
  writeBoard1(ls)
};
 
def writeBoard1(ls)
  if(null?(ls))
    #t
  else
    let(i,caar(ls))(j,cadar(ls)){
     mat[i,j] := 1,
     writeBoard1(cdr(ls))
    };
 
%行列の初期化
def initBoard()
  let(i,0)(j,0)
    for(i:=1,i<=size,i++)
      for(j:=1,j<=size,j++)
        mat[i,j] := 0;
 
%その配置はセーフか？セーフなら表示する。
def safe?(ls){
  lengthLs := [],
  writeBoard(ls),
  catch tag
  let(i,0)(j,0){
    for(i:=1,i<=size,i++)
      for(j:=1,j<=size,j++)
        when(mat[i,j]=1 && not(safe1?(i,j)))
            throw tag #f,
    print(ls)}};
 
 
def safe1?(x,y)
  catch tag{
  let(i,0)(j,0)
    for(i:=x,i<=size,i++)
      for(j:=y,j<=size,j++)
        when(mat[i,j]=1 && i!=x && j!=y && check(x,y,i,j))
          throw tag #f,
  #t};
 
%距離を計算しすでにあった距離かどうかを判定する。
def check(x,y,i,j)
  let(d,norm(x,y,i,j))
    if(member(d,lengthLs))
      #t
    else{
      lengthLs := cons(d,lengthLs),
      #f};
 
%ユークリッド距離を計算
def norm(x,y,i,j)
   sqrt(abs(x-i)^2+abs(y-j)^2);
 

Main.java:1: error: illegal character: '#'
#!sapphire
^
Main.java:1: error: class, interface, or enum expected
#!sapphire
  ^
Main.java:5: error: class, interface, or enum expected
def mat makeMat(size,size);
^
Main.java:7: error: class, interface, or enum expected
%????????
^
Main.java:7: error: illegal character: '\u3002'
%????????
        ^
Main.java:11: error: class, interface, or enum expected
%n*n????????????????
^
Main.java:11: error: illegal character: '\u3002'
%n*n????????????????
                   ^
Main.java:19: error: class, interface, or enum expected
%??????????????????f????
^
Main.java:19: error: illegal character: '\u3002'
%??????????????????f????
                       ^
Main.java:30: error: illegal character: '#'
    #f
    ^
Main.java:35: error: class, interface, or enum expected
%?????????
^
Main.java:38: error: class, interface, or enum expected
%?????????????????????????
^
Main.java:38: error: illegal character: '\u3002'
%?????????????????????????
                     ^
Main.java:38: error: illegal character: '\u3002'
%?????????????????????????
                         ^
Main.java:44: error: class, interface, or enum expected
def writeBoard1(ls)
^
Main.java:46: error: illegal character: '#'
    #t
    ^
Main.java:53: error: class, interface, or enum expected
%??????
^
Main.java:60: error: class, interface, or enum expected
%????????????????????
^
Main.java:60: error: illegal character: '\uff1f'
%????????????????????
          ^
Main.java:60: error: illegal character: '\u3002'
%????????????????????
                    ^
Main.java:69: error: illegal character: '#'
            throw tag #f,
                      ^
Main.java:73: error: class, interface, or enum expected
def safe1?(x,y)
^
Main.java:79: error: illegal character: '#'
          throw tag #f,
                    ^
Main.java:80: error: illegal character: '#'
  #t};
  ^
Main.java:82: error: class, interface, or enum expected
%????????????????????????
^
Main.java:82: error: illegal character: '\u3002'
%????????????????????????
                        ^
Main.java:86: error: illegal character: '#'
      #t
      ^
Main.java:89: error: illegal character: '#'
      #f};
      ^
Main.java:91: error: class, interface, or enum expected
%???????????
^
29 errors

Standard output is empty