目に見える建物


15

このパズルは、CodinGame SamSiの「Heart of the City」パズルから派生しています。

説明

n* nタイルの街を散歩し、中央のタイルに移動することにしました。すべての建物は無限に小さくなっていますが、スーパービジョンがあり、すべてを間近に見ることができます。

制約

n いつも奇妙です

別の建物に直接遮られていない建物を見ることができます

仕事

各建物をでマークし*ます。建物は、まったく同じ視線上の別の建物に遮られていない場合にのみ表示されます。

つまり、@が原点である場合、建物は、x座標とy座標が互いに素である場合にのみ表示されます。

入力と出力の例

入力:

7

出力:

 ** **
* * * *
*******
  *@*
*******
* * * *
 ** **

*は目に見える建物で あり、目に見えない建物であり @、あなたがいる場所です。

得点

これはであるため、バイト数が最も少ない答えが勝つことを忘れないでください。

var QUESTION_ID=91394,OVERRIDE_USER=59057;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"https://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;
body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}*{font-family:"Helvetica",sans-serif}
<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script><link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>


出力の生成方法を明確にできますか?
リーキー修道女

5の出力は、特に説明はないので、私は、入力が5よりもはるかに大きい場合の例を持っていてもいいだろうと思う
SP3000

私たちは常に中心にいますか?入力が偶数の場合はどうですか?
リーキー修道女

1
@LeakyNun「nは常に奇数」
-Sp3000

@LeakyNun出力は必要に応じて生成できますが、出力仕様に従う必要があります。7x7の入出力で正しいですか?
ソレン

回答:


8

Excel-VBA、(47 * n ^ 2)バイトおよび121バイト

命令:

Excelはこの課題に非常に便利であることがわかり、特定の入力に対して表示されるOPとして正確なパターンを取得するためのExcel数式の組み合わせがあります。幸いなことに、ExcelにはGCD関数があります。正の整数の最大公約数を返す組み込み式なので、ユークリッドアルゴリズムを使用して作成する必要はありません。ここでGCD関数が必要なのはなぜですか?なぜなら、それらの最大公約数が1に等しい場合、2つの数値は互いに素であると呼ばれるからです。ここで数字の位置の座標であり、xかつy原点に対して、、 @。これはExcelの式です

=IF(GCD(ABS(COLUMN()-m),ABS(m-ROW()))=1,"*","")

where mは参照セルの名前であり、それ以上の最小の整数に等しいn/2、ceiling(n/2)、はwhere n入力の参照セルの名前です。この数式をセルA1に貼り付け、サイズで範囲全体にドラッグしますn x n。数式の長さは47バイトですが、それをn x n何回も複製する必要があるため、(47 * n ^ 2)バイトに等しくなります。

プロセスを自動化し、文字の使用を減らすために、Excelと統合されているためVBAを使用できます。最初に、次のようにExcelのワークシートを設定します。

ここに画像の説明を入力してください

次に、イミディエイトウィンドウに次のコードを配置します

n=[A1]:m=Int(n/2)+1:Range("A1",Cells(n,n))="=IF(GCD(ABS(COLUMN()-"&m &"),ABS("&m &"-ROW()))=1,""*"","""")":Cells(m,m)="@"

コードのゴルフを解きました:

Sub A()
    n = [A1]
    m = Int(n / 2) + 1
    Range("A1", Cells(n, n)) = "=IF(GCD(ABS(COLUMN()-" & m & "),ABS(" & m & "-ROW()))=1,""*"" ,"""")"
    Cells(m, m) = "@"
End Sub

説明:

  1. n = [A1] :入力としてnを設定し、セルA1の値をnに割り当てます。
  2. m = Int(n / 2) + 1:引数の上限関数と同じ出力を返すカスタム方法n/2
  3. Range("A1", Cells(n, n)) = "=IF(GCD(ABS(COLUMN()-" & m & "),ABS(" & m & "-ROW()))=1,""*"" ,"""")":上記の数式をn x n、セルA1から始まるサイズの範囲内のすべてのセルに貼り付けます。
  4. Cells(m, m) = "@" :範囲の中心に文字を割り当て@ます。

出力:

以下の図は、入力の出力例です n = 11

ここに画像の説明を入力してください

フォントの色を赤に設定して、見栄えを良くしました。さらに良い

ここに画像の説明を入力してください


VBA関数で直接計算するのではなく、すべてのセルに数式を「貼り付ける」のはなぜですか?
ベール

@Valeループステートメント、IFステートメント、WorksheetFunctionなどを使用する必要があるため、より長くなるためです。
アナスタシヤロマノバ秀

しかし、あなたのバイト数に47 * n ^ 2を入れます...?
ベール

@Valeあなたはおそらくこれを読んでいません:「式の長さは47バイトですが、あなたはそれを数n x n回複製しなければならないので、私の答えでは(47 * n ^ 2)バイトに等しい」。ugoren's answerのコメントセクションの説明も参照してください。物事がより明確になることを願っています。
アナスタシヤロマノバ秀

@ Anastasiya-Romanova秀慣例により、このソリューションの正しいバイトカウントは121 bytes、プログラムだけがバイトカウントに寄与するためです。参照した場合、ソースは個々のセルにコピーして貼り付ける必要がありますが、ソリューションではすべてプログラムで行われます。
テイラースコット

4

ゼリー、16 バイト

:2ạḶgþ`«2ị“* @”Y

オンラインでお試しください!

使い方

:2ạḶgþ`«2ị“* @”Y  Main link. Argument: 2n + 1

:2                Perform integer division by 2, yielding n.
   Ḷ              Yield [0, ..., 2n].
 ạ                Take the absolute difference of the result to both sides.
                  This yields A := [n, ... 0, ... n].
      `           Call the quicklink to the left with left and right argument A.
     þ              Table; call the link to the left for all x in A and all y in A.
    g                 Yield the GCD of x and y.
       «2         Truncate the GCD at 2, leaving 0 for the origin, 1 for coprime
                  coordinates, and 2 otherwise.
         ị“* @”   Index into that string, mapping [1, 2, 0] to ['*', ' ', '@'].
               Y  Join, separating by linefeeds.

コードの拡張されたコメント付きビューを追加できますか?
ソレン

私はすでにやった。何か足りない?
デニス

なんらかの理由で見ていませんでした。
ソレン




3

C、147の 145 135 133バイト

Dennisのおかげで2バイト。

Arnauldのおかげで10バイト。

H Waltersのおかげで2バイト。

r,m,i,j;g(a,b){r=b?g(b,a%b):a;}main(n){scanf("%d",&n);for(m=n/2,i=-m;i<=m;putchar(r?r*r-1?32:42:64),i+=++j%n<1&&puts(""))g(i,j%n-m);}

できた!

ゴルフのアドバイスはいつでも歓迎します。


別のグローバル変数を定義して(たとえばx)、x=returnして、g()関数の代わりに行う{g(i,j-m);putchar(x?x*x-1?32:42:64);}と、7バイト節約できます。(または、改行も削除する場合は8バイト。本当に必要ですか?)
Arnauld

@Arnauldありがとう、更新
リーキー修道女

うーん。宣言する必要はありませんm,i,j二度ませんか?
アーナウルド

@Arnauldどうやら私はばかです。
リーキー修道女

1
変化する ++j++j%n(2バイト)、及びj-mj%n-m(2バイト)。その後、削除できます,j%=n(-5バイト)。
H・ウォルターズ

3

Javascriptを(ES6)、114の 113 105バイト

これはLeaky NunのCバージョンの移植版として始まり、その後さらに最適化されました。ほとんどの最適化はJSに固有です。

n=>(r=j=>i<n?('*@*'[1+(g=(i,j)=>j?g(j,i%j):i)(i-m,j-m)]||' ')+(++j<n?'':(i++,`
`))+r(j%n):'')(i=0,m=n>>1)

例:

let f =
n=>(r=j=>i<n?('*@*'[1+(g=(i,j)=>j?g(j,i%j):i)(i-m,j-m)]||' ')+(++j<n?'':(i++,`
`))+r(j%n):'')(i=0,m=n>>1)

console.log(f(7))


2

Pyth、40バイト

L@"@* "hS[b2)jsMcQyM.aMiM*.**2[r_/Q2h/Q2

私はPythに非常に慣れていないので、これはさらにゴルフをすることができます。

オンラインで試す

使い方

L@"@* "hS[b2)jsMcQyM.aMiM*.**2[r_/Q2h/Q2   

L@"@* "hS[b2)                              Lambda y. Input: b
L                                          Declare lambda
         [b2)                              List [b, 2]
        S                                  Sort ascending
       h                                   Head. Yield first element a, clamping to max 2
  "@* "                                    String literal "@* "
 @                                         Index into string with a, yielding string[a]

             jsMcQyM.aMiM*.**2[r_/Q2h/Q2   Program. Input: Q
                                _/Q2 /Q2   -Q//2 and Q//2
                                    h      Head. Q//2+1
                               r           Range [-Q//2, Q//2+1]
                              [            List
                            *2             Duplicate
                          .*               Splat. Unpack
                         *                 Cartesian product. Yield all coordinate pairs
                       iM                  Map GCD over above
                    .aM                    Map absolute value over above
                  yM                       Map y over above, yielding required characters
                cQ                         Chunk. Split above into Q pieces
              sM                           Map concatenate over above
             j                             Join on newlines
                                           Implicitly print

2

GolfScript、 98 83バイト

~:l.2/~):o:i;{o{.abs i abs.!!{{.@\%.}do}*;1={'*'}{' '}if\.i|!{\;'@'\}*)}l*;i):i;n}*

オンラインでお試しください!

入力= 11

 **** **** 
* * * * * *
** ** ** **
* * * * * *
***********
    *@*    
***********
* * * * * *
** ** ** **
* * * * * *
 **** **** 

弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.