อาคารที่มองเห็นได้


15

ปริศนานี้มาจากปริศนา "Heart of the City" ของ CodinGame SamSi

ลักษณะ

คุณตัดสินใจที่จะเดินเล่นในเมืองไทล์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>


คุณช่วยอธิบายเกี่ยวกับวิธีสร้างเอาต์พุตได้หรือไม่?
Leun Nun

ฉันคิดว่ามันจะเป็นการดีถ้ามีตัวอย่างที่อินพุตมีขนาดใหญ่กว่า 5 มากเนื่องจากเอาต์พุตสำหรับ 5 ไม่ได้อธิบายอย่างชัดเจน
Sp3000

พวกเราอยู่ตรงกลางหรือไม่? แล้วอินพุทจะเป็นยังไง?
Leun Nun

1
@LeakyNun "n แปลกเสมอ"
Sp3000

@LeakyNun สามารถสร้างเอาต์พุตได้ตามที่คุณต้องการ แต่ต้องปฏิบัติตามข้อกำหนดคุณสมบัติของเอาต์พุต ฉันแก้ไขให้ถูกต้องด้วยอินพุต / เอาต์พุต 7x7 หรือไม่?
Soren

คำตอบ:


8

Excel-VBA, (47 * n ^ 2) ไบต์และ 121 ไบต์

คำแนะนำ:

Excel กลายเป็นประโยชน์อย่างมากสำหรับความท้าทายนี้และมีสูตรผสมของ Excel เพื่อให้ได้รูปแบบที่แน่นอนตามที่ OP แสดงสำหรับอินพุตที่กำหนด โชคดีพอสำหรับฉัน, Excel มีฟังก์ชั่น GCD - การตัวในสูตรจะกลับตัวหารร่วมมากของจำนวนเต็มบวกดังนั้นผมจึงไม่ได้มีการสร้างโดยใช้ขั้นตอนวิธี Euclidean ทำไมฉันต้องใช้ฟังก์ชั่น GCD ที่นี่ มันเป็นเพราะตัวเลขสองจะเรียกว่า coprime ถ้าตัวหารร่วมมากของพวกเขาเท่ากับ 1 ตัวเลขที่นี่เป็นพิกัดของตำแหน่งxและเทียบกับต้นกำเนิดy @นี่คือสูตร Excel

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

โดยที่mเป็นชื่อของเซลล์อ้างอิงและเท่ากับจำนวนเต็มที่น้อยที่สุดซึ่งมากกว่าหรือเท่ากับn/2, ceiling ( n/2) โดยที่nชื่อของเซลล์อ้างอิงสำหรับอินพุตนั้น วางสูตรนี้ในเซลล์ A1 n x nแล้วลากทั้งหมดในช่วงที่มีขนาด ความยาวของสูตรคือ 47 ไบต์ แต่คุณต้องทำซ้ำn x nครั้งดังนั้นจึงเท่ากับ (47 * n ^ 2) ไบต์

เพื่อให้กระบวนการทำงานอัตโนมัติและเพื่อลดการใช้อักขระเราสามารถใช้ VBA เนื่องจากมันรวมเข้ากับ Excel สิ่งแรกอันดับแรกให้ตั้งค่าแผ่นงาน Excel ดังนี้:

enter image description here

จากนั้นใส่รหัสต่อไปนี้ในหน้าต่างทันที

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

Ungolfed รหัส:

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

enter image description here

ฉันตั้งค่าสีฟอนต์เป็นสีแดงเพื่อทำให้ดูน่าสนใจยิ่งขึ้น ดียิ่งขึ้น

enter image description here


ทำไมคุณ "วาง" สูตรในทุกเซลล์แทนที่จะคำนวณโดยตรงในฟังก์ชั่น VBA
Vale

@Vale เพราะจะยาวกว่าเนื่องจากฉันต้องใช้คำสั่งวนรอบ, คำสั่ง IF, WorksheetFunction และอื่น ๆ
Anastasiya-Romanova 秀

แต่ในจำนวนไบต์คุณใส่ 47 * n ^ 2 ... ?
Vale

@Vale คุณอาจยังไม่ได้อ่าน: " ความยาวของสูตรคือ 47 ไบต์ แต่คุณต้องทำซ้ำn x nครั้งดังนั้นจึงเท่ากับ (47 * n ^ 2) ไบต์ " ในคำตอบของฉัน ดูเพิ่มเติมอภิปรายในส่วนความคิดเห็นของคำตอบของ ugoren ฉันหวังว่ามันจะทำให้เรื่องชัดเจนขึ้น
Anastasiya-Romanova 秀

@ Anastasiya-Romanova 秀ตามอนุสัญญาจำนวนไบต์ที่ถูกต้องสำหรับการแก้ปัญหานี้จะ121 bytesเป็นเพียงโปรแกรมเท่านั้นที่มีส่วนร่วมกับจำนวนไบต์ ในกรณีที่คุณอ้างอิงแหล่งที่มาจะต้องคัดลอกและวางลงในแต่ละเซลล์แต่ละเซลล์ในขณะที่ในโซลูชันของคุณที่ทำเสร็จแล้วโดยทางโปรแกรม
Taylor Scott

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.

คุณสามารถเพิ่มมุมมองที่ขยายเพิ่มความคิดเห็นของรหัสได้หรือไม่
โซเรน

ฉันทำไปแล้ว มันหายไปบางอย่าง
เดนนิส

ฉันไม่เห็นมันด้วยเหตุผลบางอย่าง .... ตอนนี้มันดูดีแล้ว!
Soren


3

Perl 6 , 77 หรือ 74 ไบต์

โปรแกรมเต็มรูปแบบ(77 ไบต์) :

my \h=Int(get/2);say |map {$_|$^j??2>$j gcd$_??'*'!!' '!!'@'},-h..h for -h..h

( ลองออนไลน์ )

หากยอมรับให้ส่งคืนเอาต์พุตจากแลมบ์ดาเป็นรายการของสตริง 1 อักขระ(74 ไบต์) :

{my \h=$_ div 2;map {map {$^i|$_??2>$i gcd$_??'*'!!' '!!'@'},-h..h},-h..h}

( ลองออนไลน์ )


3

SILOS , 236 ไบต์

GOTO s
funcg
if q p
r=p
return
lblp
t=p
t%q
p=q
q=t
GOSUB g
return
lbls
readIO
m=i
m/2
a=i
lbla
a-1
a-m
b=i
lblb
b-1
b-m
p=a
p|
q=b
q|
GOSUB g
r-1
A=r
A|
r/A
r*-1
r+1
p=r
r*r
r*6
p*4
r+p
r+32
printChar r
b+m
if b b
printLine 
a+m
if a a

ลองออนไลน์!

ท่าเรือคำตอบของฉันใน C


ผลลัพธ์สำหรับ 15 น่าสนใจ
Rohan Jhunjhunwala

3

C, 147 145 135 133 ไบต์

2 ไบต์ขอบคุณเดนนิส

10 ไบต์ขอบคุณ Arnauld

2 ไบต์ต้องขอบคุณ H Walters

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 ขอบคุณอัปเดตแล้ว
Leaky Nun

อืมมม คุณไม่จำเป็นต้องประกาศm,i,jสองครั้งใช่มั้ย
Arnauld

@Arnauld เห็นได้ชัดว่าฉันเป็นคนงี่เง่า
Leun Nun

1
เปลี่ยน++jเป็น++j%n(+2 ไบต์) และj-mเป็นj%n-m(+2 ไบต์) จากนั้นคุณสามารถลบ,j%=n(-5 ไบต์)
H Walters

3

Javascript (ES6), 114 113 105 ไบต์

สิ่งนี้เริ่มต้นเป็นพอร์ตของเวอร์ชัน CของLeaky Nunและได้รับการปรับปรุงให้ดียิ่งขึ้น การปรับให้เหมาะสมส่วนใหญ่มีเฉพาะสำหรับ 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


โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.