ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月29日(金) 01:17

全ての表示時間は UTC+09:00 です




新しいトピックを投稿する  トピックへ返信する  [ 3 件の記事 ] 
作成者 メッセージ
 記事の件名: ナンプレ
投稿記事Posted: 2006年9月03日(日) 22:35 
オフライン

登録日時: 2005年7月25日(月) 13:27
記事: 893
お住まい: 埼玉県東松山市
パズル「ナンプレ」の自動生成機を作ってみました。 解くことが可能かどうかの判定はしているつもりなんですが、なぜかいつも僕には解けません。(難しくて。)
頭の体操にはもってこいだと思いますが。

_________________
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。

に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。


通報する
ページトップ
 記事の件名: 解答報告
投稿記事Posted: 2006年9月04日(月) 15:03 
オフライン

登録日時: 2006年5月22日(月) 21:01
記事: 33
お住まい: 山口
わお。ナンプレは最近Sudokuとかいって海外の方々にも受けているらしいですよね。
僕はこういうの大好きです。で、やり慣れているせいかもしれないのですが、結構簡単に(20分ほど)解けてしまいました。 マニアにはちょっと物足りないかも?(笑)


通報する
ページトップ
 記事の件名:
投稿記事Posted: 2006年9月04日(月) 20:08 
オフライン

登録日時: 2005年7月25日(月) 13:27
記事: 893
お住まい: 埼玉県東松山市
コード:
i3=0 
Print "Step 2" 
Do 
    i=Int(Rnd()*9) 
    j=Int(Rnd()*9) 
    If A(i,j)>10 then continue 
    If IfCanThink(i,j) then 
        A(i,j)=20 
    Else 
        A(i,j)+=10 
    End If 
    i3+=1 
    If i3=81 then Exit Do 
Loop 
の直後に
コード:
i3=0
Do
    i=Int(Rnd()*9) 
    j=Int(Rnd()*9) 
    If A(i,j)=20 then continue
    A(i,j)=20
    i3++
    If i3=1 then Exit Do'任意の数値にする。あまり多いとたまに抜け出せなくなるので注意。
Loop
と入れると、解けるかどうかの判定抜きに不定箇所が増えるので、難しくなると思います。

_________________
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。

に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。


通報する
ページトップ
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 3 件の記事 ] 

全ての表示時間は UTC+09:00 です


オンラインデータ

このフォーラムを閲覧中のユーザー: なし & ゲスト[13人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean