Codegolf – Видимые Здания

Эта головоломка основана на головоломке «Сердце города» от CodinGame SamSi.

Описание

Вы решили прогуляться

 
 
 
 
 <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> 
 
 
 
 

* 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} плиточный город и идите к центральной плитке. Все здания бесконечно малы, но вы обладаете сверхзрением и можете видеть все как вблизи, так и вдалеке.

Ограничения

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; is always odd

Вы можете видеть любое здание, которому не мешает другое здание.

Задача

Отметьте каждое видимое здание значком @ . The building is visible iff it is not blocked by another building on the exact same line of vision.

Другими словами, если * is the origin, the building is visible iff the x-coordinate and the y-coordinate are co-prime to each other.

Пример ввода и вывода

Вход:

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

Выход:

7

@ is a visible building, is an invisible building, and * там, где вы находитесь.

Подсчет очков

Помните, что это , поэтому побеждает ответ с наименьшим количеством байтов.

n n n

#код-гольф #код-гольф #математика #ascii-art

Excel-VBA, (47*n^2) байт и 121 байт

Инструкция:

Excel оказывается очень удобным для решения этой задачи, и существует комбинация формул Excel, позволяющая получить точный шаблон, показанный ОП для данного ввода. К счастью для меня, в Excel есть функция НОД — встроенная формула, возвращающая наибольший общий делитель положительных целых чисел, поэтому мне не нужно создавать ее с помощью Евклидов алгоритм. Зачем мне здесь нужна функция НОД? Это потому, что два числа называются взаимно простыми, если их наибольший общий делитель равен 1.. Цифры здесь — это координата позиции,

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 '@ * '[3⌊∨/|↑(⊖-⌽)⍳2⍴⎕]
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

and **** **** * * * * * * ** ** ** ** * * * * * * *********** *@* *********** * * * * * * ** ** ** ** * * * * * * **** **** , относительно начала координат, ~:l.2/~):o:i;{o{.abs i abs.!!{{.@\%.}do}*;1={'*'}{' '}if\.i|!{\;'@'\}*)}l*;i):i;n}* . Here is the Excel formula

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

где L@"@* "hS[b2)jsMcQyM.aMiM*.**2[r_/Q2h/Q2 is the name of a reference cell and it's equal to the smallest integer greater than or equal to 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)) , потолок( 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) ), where 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);} — имя ссылочной ячейки для ввода. Вставьте эту формулу в ячейку A1, затем перетащите ее по всему диапазону с размером 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 . The length of the formula is 47 bytes but you have to replicate it {my \h=$_ div 2;map {map {$^i|$_??2>$i gcd$_??'*'!!' '!!'@'},-h..h},-h..h} раз, поэтому оно равно (47*n^2) байтам.

Чтобы автоматизировать процесс и сократить использование символов, мы можем использовать VBA, поскольку он интегрирован с Excel. Первым делом настройте лист Excel следующим образом:

Затем поместите следующий код в немедленное окно

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

Развернул код:

'@* '{~2<.[:+./~<.@-:-i.

Объяснение:

1. :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. : Set n as the input and assign the value of cell A1 to n.
2. :2ạḶgþ`«2ị“* @”Y : Custom way to return the same output as the ceiling function for argument n = 11 .
3. @ : Paste the formula above to every cell in the range with size Cells(m, m) = "@" начнем с ячейки А1.
4. n x n : Assign the center of the range with a character Range("A1", Cells(n, n)) = "=IF(GCD(ABS(COLUMN()-" & m & "),ABS(" & m & "-ROW()))=1,""*"" ,"""")" .

Выход:

На рисунке ниже показан пример вывода для ввода. n/2

Я установил красный цвет шрифта, чтобы он выглядел более привлекательно. Еще лучше

Желе, 16 байты

m = Int(n / 2) + 1

Попробуйте онлайн!

Как это работает

n = [A1] ||answer||

Дж, 24 байта

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

Порт Ответ Денниса в Джелли.

Perl 6, 77 или 74 байта

Полная программа (77 байт):

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

(попробуй онлайн)

Допустимо ли возвращать выходные данные лямбды в виде списка списков односимвольных строк (74 байта):

n x n

(попробуй онлайн)

С.И.Л.О.С., 236 байт

n x n

Попробуйте онлайн!

Порт мой ответ на Си.

С, 147 145 135 133 байт

2 байта благодаря Деннису.

10 байт благодаря Арно.

2 байта благодаря Х. Уолтерсу.

n

Идея!

Советы по игре в гольф приветствуются, как всегда.

Javascript (ES6), 114 113 105 байт

Это началось как порт Версия C Leaky Nun и затем был дополнительно оптимизирован. Большинство оптимизаций специфичны для JS.

n/2

Пример:

n/2 ||answer||

Пиф, 40 байт

m

Я новичок в Пите, так что, вероятно, можно продолжить игру в гольф.

Попробуйте онлайн

Как это работает

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

гольфскрипт, 98 83 байта

@

Попробуйте онлайн!

Ввод = 11

y ||answer||

АПЛ (Диалог Классик), 23 байта

x

Попробуйте онлайн!