乌龟嘶嘶声

35

问题描述

假设您是网格上的乌龟。您将得到两个数字f和b，并且您朝东。您按照以下规则在网格上进行游行，计算遇到的每个单元：

  • 默认情况下，您将计数写入您所在的单元格，然后向前走。
  • 如果该计数可被f整除，则将其写入所在F的单元格，然后向右转，然后向前走。
  • 如果该计数可被b整除，则将其写入B您所在的单元格，然后向左转，然后向前走。
  • 如果该计数可被f和b整除，则将其写入所在FB的单元格，然后向前走。
  • 如果您到达过一个广场，就停下来。

例如，遵循使用f = 3和b = 5的这些规则，将生成如下所示的模式：

    F 28 29 FB  1  2  F
   26                 4
 F  B                 B  F
23                       7
22                       8
 F  B                 B  F
   19                11
    F 17 16 FB 14 13  F

挑战

编写一个程序或函数，接受对应于f和b的两个数字作为输入，并为上述规则给出的这些数字生成模式作为输出。

格式要求：

  • 每个单元格是两个字符宽
  • 单元格内容在这两个字符内右对齐
  • 同一行中的单元格由空格分隔
  • 单元格的第一列必须包含一个非空单元格
  • 所有行必须包含非空单元格
  • 尾随空格不是必需的，但允许
  • 但是，每行的总宽度不得超过非空列数的3倍

您的代码必须适用于提供的测试用例。

不允许出现标准漏洞。

这是代码高尔夫；以字节为单位的最短答案获胜。

测试用例

（为方便起见，在此重复f = 3，b = 5的情况）。

f=3, b=5 ->
    F 28 29 FB  1  2  F
   26                 4
 F  B                 B  F
23                       7
22                       8
 F  B                 B  F
   19                11
    F 17 16 FB 14 13  F

f=4, b=10 ->
 F 25 26 27  F
23          29
22        1  2  3  F
21                 5
FB                 6
19                 7
18           B  9  F
17          11
 F 15 14 13  F

f=3, b=11 ->
 F 16 17  F
14       19
13     1  2  F
 F  B        4
   10        5
    F  8  7  F

f=5, b=9 ->
    F 41 42 43 44  1  2  3  4  F
   39                          6
   38                          7
   37                          8
 F  B                          B  F
34                               11
33                               12
32                               13
31                               14
 F 29 28  B              B 17 16  F
         26             19
          F 24 23 22 21  F

f=5, b=13 ->
    F 31 32 33 34  F
   29             36
   28        1  2  3  4  F
   27                    6
 F  B                    7
24                       8
23                       9
22              B 12 11  F
21             14
 F 19 18 17 16  F
code-golf  grid 
— 沃尔特斯
source
1
我们是否保证在达到100之前输入始终会导致碰撞？
— 马丁·恩德
是。更一般而言，只要您的代码适用于提供的测试用例，就可以使用。
— H Walters
1
您（乌龟）开始有特定的位置吗？
— Kritixi Lithos
@KritixiLithos编号。网格的左/上/右/下由乌龟的移动方式定义，取决于f和b。
— H沃尔特斯
f和b总是整数吗？
— corvus_192 2016年

Answers:

1

的JavaScript（ES6），230 240

(f,b)=>(d=>{for(g=[s=x=y=d];!(r=g[y]=g[y]||[])[x];d&1?d&2?y?--y:g=[,...g]:++y:d&2?x?--x:g=g.map(r=>[,...r]):++x)o=++s%f?'':(++d,'F'),s%b||(--d,o+='B'),r[x]=o||s})(0)||g.map(r=>[...r].map(c=>` ${c||' '}`.slice(-2)).join` `).join`
`

少打高尔夫球

(f,b)=>{
  for(g=[s=x=y=d=0]; !(r = g[y]= g[y]||[])[x]; )
  {
    o=++s%f?'':(++d,'F')
    s%b||(--d,o+='B')
    r[x]=o||s,
    d&1
      ? d&2 ? y ? --y : g=[,...g] : ++y
      : d&2 ? x ? --x : g=g.map(r=>[,...r]) : ++x
  }
  return g.map(r=>[...r].map(c=>` ${c||' '}`.slice(-2)).join` `)
          .join`\n`
}

测试

F=
(f,b)=>(d=>{for(g=[s=x=y=d];!(r=g[y]=g[y]||[])[x];d&1?d&2?y?--y:g=[,...g]:++y:d&2?x?--x:g=g.map(r=>[,...r]):++x)o=++s%f?'':(++d,'F'),s%b||(--d,o+='B'),r[x]=o||s})(0)||g.map(r=>[...r].map(c=>` ${c||' '}`.slice(-2)).join` `).join`
`


function update()
{
  var i = I.value.match(/\d+/g)||[],f=+i[0],b=+i[1]
  O.textContent = (f>0 & b>0) ? F(f,b) : ''
}  

update()
<input id=I value="3 5" oninput="update()">
<pre id=O></pre>
展开摘要

— edc65
source
5

Python 2中，379个 338 326字节

将输入作为两个数字，用逗号分隔。例如。4,5要么(4,5)

d=x=y=i=q=Q=e=E=0
p={}
f,b=input()
while(x,y)not in p:
 i+=1;l,r=i%b<1,i%f<1;d=(d+r-l)%4;p[x,y]=[[`i`,'F'][r],' F'[r]+'B'][l].rjust(2);q=min(q,x);Q=max(Q,x);e=min(e,y);E=max(E,y)
 if d%2:x+=(d==1)*2-1
 else:y+=(d!=2)*2-1
h,w=E-e+1,Q-q+1
A=[h*['  ']for x in' '*w]
for x,y in p:A[x-q][y-e]=p[x,y]
print'\n'.join(map(' '.join,A))

如果路径长度超过99则为有效版本，384 343 330字节

显示2位有效数字。

d=x=y=i=q=Q=e=E=0
p={}
f,b=input()
while(x,y)not in p:
 i+=1;l,r=i%b<1,i%f<1;d=(d+r-l)%4;p[x,y]=[[`i%100`,'F'][r],' F'[r]+'B'][l].rjust(2);q=min(q,x);Q=max(Q,x);e=min(e,y);E=max(E,y)
 if d%2:x+=(d==1)*2-1
 else:y+=(d!=2)*2-1
h,w=E-e+1,Q-q+1
A=[h*['  ']for x in' '*w]
for x,y in p:A[x-q][y-e]=p[x,y]
print'\n'.join(map(' '.join,A))

例子：

input=(4,16)

 F 21 22 23  F
19          25
18          26
17          27
FB  1  2  3  F
15           5
14           6
13           7
 F 11 10  9  F

input=(6,7) （截断版本）

                                              F 63 64 65 66 67 FB  1  2  3  4  5  F                                             
                               F 57 58 59 60  B                                   B  8  9 10 11  F                              
                              55                                                                13                              
                   F 51 52 53  B                                                                 B 15 16 17  F                  
                  49                                                                                        19                  
                  48                                                                                        20                  
          F 45 46  B                                                                                         B 22 23  F         
         43                                                                                                          25         
         42                                                                                                          26         
         41                                                                                                          27         
    F 39  B                                                                                                           B 29  F   
   37                                                                                                                      31   
   36                                                                                                                      32   
   35                                                                                                                      33   
   34                                                                                                                      34   
 F  B                                                                                                                       B  F
31                                                                                                                            37
30                                                                                                                            38
29                                                                                                                            39
28                                                                                                                            40
27                                                                                                                            41
FB                                                                                                                            FB
25                                                                                                                            43
24                                                                                                                            44
23                                                                                                                            45
22                                                                                                                            46
21                                                                                                                            47
 F  B                                                                                                                       B  F
   18                                                                                                                      50   
   17                                                                                                                      51   
   16                                                                                                                      52   
   15                                                                                                                      53   
    F 13  B                                                                                                           B 55  F   
         11                                                                                                          57         
         10                                                                                                          58         
         09                                                                                                          59         
          F 07 06  B                                                                                         B 62 61  F         
                  04                                                                                        64                  
                  03                                                                                        65                  
                   F 01 00 99  B                                                                 B 69 68 67  F                  
                              97                                                                71                              
                               F 95 94 93 92  B                                   B 76 75 74 73  F                              
                                              F 89 88 87 86 85 FB 83 82 81 80 79  F

@Edit：感谢Jonathan Allan，Copper和shooqie节省了我很多字节。

— 场
source
呵呵，这些N，4N模式非常酷。
— steenbergh
做得好。您可以更改while((x,y)not in p.keys()):到while(x,y)not in p:和for x,y in p.keys():到for x,y in p。您可以更改l,r=i%b==0,i%f==0到l,r=i%b<1,i%f<1和d=(d+[0,1][r]-[0,1][l])%4到d=(d+r-l)%4。您可以更改s=[[`i`,'F'][r],' F'[r]+'B'][l].rjust(2);p[(x,y)]=s为p[(x,y)]=[[`i`,'F'][r],' F'[r]+'B'][l].rjust(2)。可能还有更多
— Jonathan Allan
您可以使用h*[' ']for x in range代替来保存一个字节[' ']*h for x in range。此外，x+=[-1,1][d==1]可以用替换x+=(d==1)*2-1，也y+=[1,-1][d==2]可以用替换y+=(d!=2)*2-1。另外，是f,b=inputtt错字吗？
— 铜
p[(x,y)]=> p[x,y]（尽管不确定它是否适用于Python 2）
— shooqie
4

Excel VBA，347421字节

新版本，处理空白要求。在我的第一个版本中没有这个是我的疏忽，但这会以字节数为代价...现在，它将使用的范围剪切并粘贴到cell A1。

Sub t(f, b)
x=70:y=70:Do:s=s+ 1
If Cells(y,x).Value<>"" Then
ActiveSheet.UsedRange.Select:Selection.Cut:Range("A1").Select:ActiveSheet.Paste:Exit Sub
End If
If s Mod f=0 Then Cells(y,x).Value="F":q=q+1
If s Mod b=0 Then Cells(y,x).Value=Cells(y,x).Value & "B":q=q+3
If Cells(y,x).Value="" Then Cells(y,x).Value=s
Select Case q Mod 4
Case 0:x=x+1
Case 1:y=y+1
Case 2:x=x-1
Case 3:y=y-1
End Select:Loop:End Sub

这是没有将最终结果移至的旧版本 A1

Sub t(f,b)
x=70:y=70:Do:s=s+1:if Cells(y,x).Value<>"" then exit sub
If s Mod f=0 Then
Cells(y,x).Value="F":q=q+1
End If
If s Mod b=0 Then
Cells(y,x).Value=Cells(y,x).Value & "B":q=q+3
End If
If Cells(y,x).Value="" Then Cells(y,x).Value=s
Select Case q mod 4
Case 0:x=x+1
Case 1:y=y+1
Case 2:x=x-1
Case 3:y=y-1
End Select:Loop:End Sub

从70、70（或Excel中的BR70）开始，然后绕过它。使用f和b作为参数调用函数：Call t(4, 16)

@Neil刚刚为我节省了一堆字节，谢谢！

— 施滕伯格
source
1
如果更换q=q-1用q=q+3和Select Case q用Select Case q Mod 4，那么你可以摆脱前两个语句。
— 尼尔
However, the total width of each row must not exceed 3 times the number of non-empty columns我想这是为了避免只是设置一个大网格并开始远离边界而开始
— Karl Napf
1
@KarlNapf固定。
— steenbergh
3

Excel VBA中，284 278 277 261 259 255 254 253 251个字节

Sub例程获取输入作为值，F，B并输出到细胞上的Sheets(1)对象（其被限制于Sheets(1)对象保存2个字节）

Sub G(F,B)
Set A=Sheet1
R=99:C=R
Do
I=I+1
Y=Cells(R,C)
If Y<>""Then A.UsedRange.Cut:[A1].Select:A.Paste:End
If I Mod F=0Then Y="F":J=J+1
If I Mod B=0Then Y=Y+"B":J=J+3
Cells(R,C)=IIf(Y="",i,Y)
K=J Mod 4
If K Mod 2Then R=R-K+2 Else C=C+1-K
Loop
End Sub

用法：

Call G(3, 4)
— 泰勒·斯科特
source
2

C，349字节

用gcc编译（有很多警告）

#define z strcpy(G[x][y],
char G[99][99][3];d=3,x=49,y=49,i=1,q,s=99,t,u=99,v;F(f,b){for(;!*G[x][y];i++){q=(!(i%f))<<1|!(i%b);q==3&&z"FB");if(q==2)z"F"),d=(d+3)%4;if(q==1)z"B"),d=(d+1)%4;!q&&sprintf(G[x][y],"%d",i);if(d%2)x+=d-2;else y+=d-1;s=s>x?x:s;t=t<x?x:t;u=u>y?y:u;v=v<y?y:v;}for(y=u;y<=v;puts(""),y++)for(x=s;x<=t;x++)printf("%2s ",G[x][y]);}

缩进的版本：

#define z strcpy(G[x][y],
char G[99][99][3];
d=3,x=49,y=49,i=1,q,s=99,t,u=99,v;

F(f,b)
{
    for(;!*G[x][y];i++)
    {
        q=(!(i%f))<<1|!(i%b);
        q==3&&z"FB");
        if(q==2)z"F"),d=(d+3)%4;
        if(q==1)z"B"),d=(d+1)%4;
        !q&&sprintf(G[x][y],"%d",i);
        if(d%2)x+=d-2;else y+=d-1;
        s=s>x?x:s;t=t<x?x:t;u=u>y?y:u;v=v<y?y:v;
    }
    for(y=u;y<=v;puts(""),y++)for(x=s;x<=t;x++)printf("%2s ",G[x][y]);
}

这是一个364字节的版本，可处理大于100的数字

#define g G[x][y]
#define z strcpy(g,
char G[99][99][9];d=3,x=49,y=49,i=1,q,s=99,t,u=99,v;F(f,b){for(;!*g;i++){q=(!(i%f))<<1|!(i%b);q==3&&z"FB");if(q==2)z" F"),d=(d+3)%4;if(q==1)z" B"),d=(d+1)%4;!q&&sprintf(G[x][y],"%2d",i);if(d%2)x+=d-2;else y+=d-1;s=s>x?x:s;t=t<x?x:t;u=u>y?y:u;v=v<y?y:v;}for(y=u;y<=v;puts(""),y++)for(x=s;x<=t;x++)printf("%2s ",g+strlen(g)-2);}
— 杰里·耶利米
source
1

Perl，275个字节

提供缩进以提高可读性，它不是代码的一部分。

($f,$e)=@ARGV;
for($i=$x=1,$y=0;!$m{"$x,$y"};$i++){
    ($g,$m{"$x,$y"})=$i%$e&&$i%$f?($g,$i):$i%$f?($g+1,B):$i%$e?($g-1,F):($g,FB);
    ($g%=4)%2?($y+=$g-2):($x+=1-$g);
    ($a>$x?$a:$b<$x?$b:$x)=$x;
    ($c>$y?$c:$d<$y?$d:$y)=$y
}
for$k($c..$d){
    printf("%*s",1+length$i,$m{"$_,$k"})for$a..$b;
    say
}

说明：

该代码通过跟踪乌龟到过的所有地方的哈希值以及存储在中的适当值来工作%m。例如：in 3 5，$m{0,2}contains 2和$m{1,-3}= 26。它以这种方式继续，直到到达已经定义的位置。另外，它使用$a,$b,$c,$d最大值和最小值来跟踪乌龟路径的当前边界。

一旦到达某个位置，它将使用边界打印路径，所有内容都用空格填充。

路径的大小没有限制，数字的大小也没有限制。

— 加布里埃尔·贝纳米（Gabriel Benamy）
source
1

PHP，292字节

for($x=$y=$u=$l=0;!$q[$x][$y];$s="") {
    ++$i%$argv[1]?:$a-=1+$s="F";
    $i%$argv[2]?:$a+=1+$s.="B";
    $q[$x][$y]=$s?:$i;
    $z=[1,-2,-1,2][$a=($a+4)%4];
    $y+=$z%2;
    $x+=~-$z%2;
    $u>$y?$u=$y:$d>$y?:$d=$y;
    $l>$x?$l=$x:$r>$x?:$r=$x;
}
for(;$l++<=$r;print"\n")for($j=$u-1;$j++<=$d;)echo str_pad($q[$l-1][$j],3," ",0);

在线尝试！

缩进是为了清楚起见，没有计算在内。

遵循与Perl答案大致相同的算法。跟踪乌龟在2D阵列中的位置，$a跟踪乌龟面对的位置，并$u, $d, $l, $r跟踪打印边界。str_pad使我们能够确保每个条目的打印宽度正好为3个空格。

由于某种原因，我无法理解，PHP不介意我不将变量的一半初始化为0，但是如果我不初始化其他变量，则会搞砸格式，即使通常在未初始化的变量初次使用时会将其视为0。用过的。因此$x=$y=$u=$l=0位。

— Xanderhall
source
0

Python 2，267个 262 258 249 245 243字节

f,b=input()
X=x=Y=y=i=p=0
g={}
S=sorted
while(p in g)<1:i+=1;g[p]='F'[i%f:]+'B'[i%b:]or`i`;p+=1j**(i/f-i/b);X,_,x=S([X,x,int(p.real)]);Y,_,y=S([Y,y,int(p.imag)])
j=Y
while j<=y:print' '.join(g.get(i+j*1j,'').rjust(2)for i in range(X,x+1));j+=1

在线尝试！

— 阿菲
source
By using our site, you acknowledge that you have read and understand our Cookie Policy and Privacy Policy.
Licensed under cc by-sa 3.0 with attribution required.