Ở một số quốc gia, có những khuyến nghị hoặc luật về cách hình thành hành lang khẩn cấp trên các đường phố có nhiều làn đường cho mỗi hướng. (Sau đây chúng tôi chỉ xem xét các làn đường đi theo hướng chúng tôi đang đi.) Đây là các quy tắc được tổ chức tại Đức:

• Nếu chỉ có một làn đường, mọi người nên lái xe sang phải để các phương tiện cứu hộ có thể vượt bên trái.
• Nếu có hai làn trở lên, những chiếc xe bên trái hầu hết sẽ đi bên trái và những người khác nên di chuyển sang bên phải.

Thử thách

Với số lượng N>0làn thông thường, hãy bố trí các làn đường khi hành lang khẩn cấp được hình thành bằng cách sử dụng một chuỗi các N+1ký tự ASCII. Bạn có thể sử dụng bất kỳ hai ký tự từ mã ASCII 33cho đến126 , một để biểu thị hành lang khẩn cấp, và một để biểu thị những chiếc xe. Trailing hoặc hàng đầu không gian, ngắt dòng vv được cho phép.

Ví dụ

Ở đây chúng tôi đang sử dụng Echo hành lang khẩn cấp, và Ccho những chiếc xe hơi.

N  Output
1  EC
2  CEC
3  CECC
4  CECCC
5  CECCCC
6  CECCCCC
   etc

Python 2, 29 26 byte

lambda n:10**n*97/30-1/n*9

Thí dụ:

>>> f(1)
23
>>> f(2)
323
>>> f(3)
3233

Python 3, 35 33 byte

lambda N:'C'*(N>1)+'EC'+'C'*(N-2)

Chỉnh sửa: thả f=để lưu 2 byte, nhờ lời nhắc của @dylnan .

Hãy thử trực tuyến!

Để hình dung nó:

lambda N:'🚘'*(N>1)+'🚔🚘'+'🚘'*(N-2)

Đầu ra:

1 🚔🚘
2 🚘🚔🚘
3 🚘🚔🚘🚘
4 🚘🚔🚘🚘🚘
5 🚘🚔🚘🚘🚘🚘
6 🚘🚔🚘🚘🚘🚘🚘

Hãy thử 🚔 trực tuyến!

Python 3, 40 byte

Một giải pháp đơn giản:

lambda N:str(10**N).replace('100','010')

Hãy thử trực tuyến!

C (gcc) , 32 byte

f(n){printf(".%.*f"+1%n,n-1,0);}

Hãy thử trực tuyến!

Công dụng 0và .nhân vật:

.0
0.0
0.00
0.000
0.0000

Japt, 5 4 byte

Sử dụng qcho xe hơi và +cho hành lang.

ç¬iÄ

Thử nó

Tín dụng cho Oliver, người đã chơi golf 4 byte cùng lúc với tôi.

Giải trình

Một giải pháp ngắn nhưng một lời giải thích khó khăn!

Công cụ đơn giản trước tiên: çPhương thức, khi được áp dụng cho một số nguyên, lặp lại đối số chuỗi của nó với số lần đó. Các iphương pháp có 2 đối số ( s& n) và chèn svào chỉ sốn của chuỗi nó được áp dụng.

Việc mở rộng 2 phím tắt unicode được sử dụng mang lại cho chúng ta çq i+1, khi được phiên mã sang JS trở thành U.ç("q").i("+",1), Uđầu vào ở đâu. Vì vậy, chúng tôi lặp lại q Uthời gian và sau đó chèn một+ chỉ mục 1.

Bí quyết cuối cùng là, nhờ gói chỉ mục của Japt, khi nào U=1, isẽ chèn +chỉ mục 0, bất kể giá trị nào bạn cung cấp cho nó n.

R, 50 byte

-11 cảm ơn Giuseppe!

pryr::f(cat("if"(x<2,12,c(21,rep(2,x-1))),sep=""))

Đầu ra 1 cho hành lang khẩn cấp và 2 cho làn đường bình thường

Cố gắng của tôi, 61 byte

Không có gì lạ mắt để xem ở đây, nhưng hãy để R trên bảng điểm =)

q=pryr::f(`if`(x<2,cat("EC"),cat("CE",rep("C",x-1),sep="")))

Sử dụng:

q(5)
CECCCC

Haskell , 38 34 32 byte

f 1="EC"
f n="CE"++("C"<*[2..n])

Hãy thử trực tuyến!

Python 2, 30 29 28 byte

lambda n:`10/3.`[1/n:n-~1/n]

In 3thay vì Cvà .thay vì E.

Giải trình:

Hãy thử trực tuyến.

lambda n:    # Method with integer parameter and string return-type
  `10/3.`    #  Calculate 10/3 as decimal (3.333333333) and convert it to a string
  [1/n       #   Take the substring from index 1 if `n=1`, 0 otherwise
   ,n-~      #   to index `n+1` +
       1/n]  #    1 if `n=1`, 0 otherwise

Python 2, 33 32 31 29 28 byte

lambda n:1%n-1or'1-'+'1'*~-n

In 1thay vì Cvà -thay vì E.

-2 byte nhờ @ovs .
-1 byte nhờ @xnor .

Giải trình:

Hãy thử trực tuyến.

lambda n:    # Method with integer parameter and string return-type
  1%n-1      #  If `n` is 1: Return '-1'
  or         #  Else:
    '1-'+    #   Return '1-', appended with:
    '1'*~-n  #   `n-1` amount of '1's

Bình thường, 10 9 8 byte

Xn1Q*NQZ

Sử dụng 0để biểu thị hành lang khẩn cấp và ".
Hãy thử nó ở đây

Giải trình

Xn1Q*NQZ
    *NQ     Make a string of <input> "s.
 n1Q         At index 0 or 1...
X      Z    ... Insert 0.

cân não , 42 byte

,[[>]+[<]>-]>>[<]<[<]>+>+<[<-[--->+<]>.,>]

Hãy thử trực tuyến!

Lấy đầu vào là mã char và đầu ra là Vlàn bình thường vàW là làn đường bị xóa. (Để kiểm tra dễ dàng, tôi khuyên bạn nên thay thế ,bằng một số +s)

Làm thế nào nó hoạt động:

,[[>]+[<]>-] Turn input into a unary sequence of 1s on the tape
>>[<]<[<]    Move two cells left of the tape if input is larger than 1
             Otherwise move only one space
>+>+<        Add one to the two cells right of the pointer
             This transforms:
               N=1:  0 0' 1 0  -> 0 2' 1 0
               N>1:  0' 0 1 1* -> 0 1' 2 1*
[<-[--->+<]>.,>]  Add 86 to each cell to transform to Ws and Vs and print

Octave (MATLAB *), 31 30 28 27 22 byte

@(n)'CE'(1+(n>1==0:n))

Hãy thử trực tuyến!

Chương trình hoạt động như sau:

@(n)                   %Anonymous function to take input
            n>1==0:n   %Creates [1 0] if n is 1, or [0 1 (0 ...)] otherwise
         1+(        )  %Converts array of 0's and 1's to 1-indexed
    'CE'(            ) %Converts to ASCII by addressing in string

Thủ thuật được sử dụng ở đây là KHAI THÁC mảng hạt giống 0:nvới một kiểm tra nếu đầu vào lớn hơn 1. Kết quả là đối n>1với hạt giống được chuyển đổi thành một mảng logic [0 1 (0 ...)]trong khin==1 hạt giống bị đảo ngược [1 0], đạt được sự đảo ngược cần thiết.

Phần còn lại chỉ là chuyển đổi hạt giống thành một chuỗi với những chiếc xe được nối thêm.

(*) Liên kết TIO bao gồm trong phần chân trang nhận xét một giải pháp thay thế cho cùng số byte hoạt động trong MATLAB cũng như Octave, nhưng nó dẫn đến một chuỗi '0' và '1' thay vì 'E' và ' C '. Để hoàn thiện, thay thế là:

@(n)['' 48+(n>1==0:n)]

• Đã lưu 1 byte bằng cách sử dụng n==1~=0:1chứ không phải 0:1~=(n<2). ~=đã được ưu tiên hơn <, do đó là dấu ngoặc gốc, nhưng dường như ~=và ==được xử lý theo thứ tự xuất hiện để bằng cách so sánh với 1, chúng ta có thể lưu một byte.

• Đã lưu 2 byte bằng cách thay đổi nơi 2:nthực hiện phủ định . Điều này tiết kiệm một cặp dấu ngoặc. Chúng tôi cũng phải thay đổi ~=để tính ==đến thực tế là nó sẽ bị phủ nhận sau này.

• Đã lưu 1 byte bằng cách sử dụng <lại. Hóa ra <có cùng một ưu tiên như ==sau tất cả. Đặt <phép tính trước khi ==đảm bảo đúng thứ tự thực hiện.

• Đã lưu 5 byte bằng cách không tạo hai mảng riêng biệt. Thay vào đó dựa vào thực tế là so sánh XNOR sẽ chuyển đổi một phạm vi duy nhất thành logic.

Thạch , 11 9 byte

’0ẋ⁾0E;ṙỊ

Hãy thử trực tuyến!

Chương trình đầy đủ.

Sử dụng 0thay vì C.

C (gcc), 39 byte

f(n){printf("70%o"+!n,7|(1<<3*--n)-1);}

Hãy thử trực tuyến!

Mượn và điều chỉnh thủ thuật printf từ câu trả lời của ErikF .

Python 3, 32 byte

lambda n:f"{'CE'[n<2:]:C<{n+1}}"

Hãy thử trực tuyến!

Sử dụng biểu thức chuỗi f để định dạng 'E'hoặc được 'CE'đệm ở bên phải 'C'để nó có chiều rộng n+1.

f"{          :       }    a Python 3 f-string expression.
   'CE'[n<2:]             string slice based on value of n.
             :            what to format is before the ':' the format is after.
              C           padding character
               <          left align
                {n+1}     minimum field width based on n

Brain-Flak , 100 66 byte

{({}[()]<((((()()()()){}){}){}())>)}{}(({}<>)())<>{<>{({}<>)<>}}<>

Hãy thử trực tuyến!

Sử dụng "như làn đường khẩn cấp và !làn đường bình thường.

C #, 34 byte

n=>n++<2?"EC":"CE".PadRight(n,'C')

Hãy thử trực tuyến!

05AB1E , 7 byte

Î>∍1I≠ǝ

Hãy thử trực tuyến!

0 là C và 1 là E.

Giải trình

Î>          # Push 0 and input incremented            -- [0, 4]
  ∍         # Extend a to length b                    -- [0000]
   1I≠      # Push 1 and input falsified (input != 1) -- [0000, 1, 1] 
      ǝ     # Insert b in a at location C             -- [0100]
            # Implicit display

APL (Dyalog Unicode) , 21 17 16 byte

(-≠∘1)⌽'E',⍴∘'C'

Hãy thử trực tuyến!

Cảm ơn Erik vì đã lưu 4 byte và Adám để có thêm một byte.

Làm sao?

(-≠∘1)⌽'E',⍴∘'C' ⍝ Tacit function
           ⍴∘'C' ⍝ Repeat 'C', according to the input
       'E',      ⍝ Then append to 'E'
      ⌽          ⍝ And rotate
    1)           ⍝ 1
  ≠∘             ⍝ Different from the input? Returns 1 or 0
(-               ⍝ And negate. This rotates 0 times if the input is 1, and once if not.

Haskell , 35 33 32 byte

2 byte được lưu nhờ Angs, 1 byte được lưu nhờ Lynn

(!!)$"":"EC":iterate(++"C")"CEC"

Hãy thử trực tuyến!

Haskell , 32 30 29 byte

Đây là số 0 được lập chỉ mục vì vậy nó không tuân thủ thách thức

g=(!!)$"EC":iterate(++"C")"CEC"

Hãy thử trực tuyến!

Haskell , 30 byte

Điều này không hoạt động vì đầu ra cần phải là một chuỗi

f 1=21
f 2=121
f n=10*f(n-1)+1

Hãy thử trực tuyến!

Ở đây chúng tôi sử dụng số thay vì dây, 2cho hành lang khẩn cấp, 1cho xe ô tô. Chúng ta có thể thêm một 1kết thúc bằng cách nhân với 10 và thêm1 . Điều này rẻ hơn bởi vì chúng tôi không phải trả tiền cho tất cả các byte cho phép nối và chuỗi ký tự.

Nó sẽ rẻ hơn để sử dụng 0thay vì 1nhưng chúng ta cần các số không hàng đầu, cuối cùng bị cắt bớt.

Python 3 , 30 29 byte

lambda n:"CEC"[~n:]+"C"*(n-2)

Hãy thử trực tuyến!

OK, đã có rất nhiều câu trả lời Python, nhưng tôi nghĩ rằng đây là phụ 30 đầu tiên trong số những người vẫn sử dụng ký tự "E" và "C" thay vì số.

JavaScript (Node.js) , 28 byte

n=>n<2?21:"12".padEnd(n+1,1)

Hãy thử trực tuyến!

APL (Dyalog Unicode) , 16 byte

≡∘1⌽'CE',1↓⍴∘'C'

Hãy thử trực tuyến!

Stax , 7 byte

ü♣àj#F 

Chạy và gỡ lỗi nó

Cái này sử dụng các ký tự "0" và "1". Điều này hoạt động vì khi bạn xoay một mảng có kích thước 1, nó sẽ không thay đổi.

Giải nén, không được chỉnh sửa và nhận xét, nó trông như thế này.

1]( left justify [1] with zeroes. e.g. [1, 0, 0, 0]
|)  rotate array right one place
0+  append a zero
$   convert to string

Chạy cái này

JavaScript (Node.js) , 19 byte

n=>--n?"0"+10**n:10

Hãy thử trực tuyến!

Perl 5 -p , 27 20 19 byte

$_=1x$_;s/1?\K1/E1/

Hãy thử trực tuyến!

Lưu một byte bằng cách sử dụng 1cho xe ô tô và Echo hành lang khẩn cấp.

Thạch , 6 byte

⁵*ṾṙỊṙ

Hiển thị làn đường ô tô là 0 , làn khẩn cấp là 1 .

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

⁵*ṾṙỊṙ  Main link. Argument: n

⁵*      Compute 10**n.
  Ṿ     Uneval; get a string representation.
   ṙỊ   Rotate the string (n≤1) characters to the left.
     ṙ  Rotate the result n characters to the left.

Khoảng trắng , 141 104 103 byte

[S S S N
_Push_0][S N
S _Duplicate_0][T   N
T   T   _Read_STDIN_as_number][T    T   T   _Retrieve][S S S T  S N
_Push_2][T  S S T   _Subtract][S N
S _Duplicate_input-2][N
T   T   N
_If_negative_Jump_to_Label_-1][S S S T  N
_Push_1][S N
S _Duplicate_1][T   N
S T _Print_as_integer][S S T    T   N
_Push_-1][T N
S T _Print_as_integer][T    S S T   _Subtract][N
S S T   N
_Create_Label_LOOP][S N
S _Duplicate][N
T   T   S N
_If_negative_Jump_to_EXIT][S S S T  N
_Push_1][S N
S _Duplicate_1][T   N
S T _Print_as_integer][T    S S T   _Subtract][N
S N
T   N
_Jump_to_LOOP][N
S S N
_Create_Label_-1][T N
S T _Print_as_integer][N
S S S N
_Create_Label_EXIT]

Chữ cái S(dấu cách), T(tab) và N(dòng mới) được thêm vào dưới dạng chỉ tô sáng.
[..._some_action]chỉ thêm vào giải thích.

In 1thay vì Cvà -thay vìE.

-1 byte nhờ @JoKing bằng cách đề xuất sử dụng 1và -1thay vì 0và 1.

Giải thích bằng mã giả:

Integer i = STDIN-input as integer - 2
If i is negative (-1):
  Print i (so print "-1")
Else:
  Print "1-1"
  Start LOOP:
    If i is negative:
      EXIT program
    Print "1"
    i = i-1
    Go to the next iteration of the LOOP

Ví dụ chạy:

Đầu vào: 1

Command   Explanation                 Stack      Heap    STDIN   STDOUT   STDERR

SSSN      Push 0                      [0]
SNS       Duplicate top (0)           [0,0]
TNTT      Read STDIN as integer       [0]        {0:1}   1
TTT       Retrieve heap at 0          [1]        {0:1}
SSSTSN    Push 2                      [1,2]      {0:1}
TSST      Subtract top two            [-1]       {0:1}
SNS       Duplicate input-2           [-1,-1]    {0:1}
NTSN      If neg.: Jump to Label_-1   [-1]       {0:1}
NSSN      Create Label_-1             [-1]       {0:1}
TNST      Print top as integer        []         {0:1}           -1
NSSSN     Create Label_EXIT           []         {0:1}
                                                                         error

Dùng thử trực tuyến (chỉ có khoảng trắng, tab và dòng mới).
Dừng với lỗi: Thoát không được xác định.

Đầu vào: 4

Command   Explanation                   Stack      Heap    STDIN   STDOUT   STDERR

SSSN      Push 0                        [0]
SNS       Duplicate top (0)             [0,0]
TNTT      Read STDIN as integer         [0]        {0:4}   4
TTT       Retrieve heap at 0            [4]        {0:4}
SSSTSN    Push 2                        [4,2]      {0:4}
TSST      Subtract top two              [2]        {0:4}
SNS       Duplicate input-2             [2,2]      {0:4}
NTSN      If neg.: Jump to Label_-1     [2]        {0:4}
SSSTN     Push 1                        [2,1]      {0:4}
SNS       Duplicate top (1)             [2,1,1]    {0:4}
TNST      Print as integer              [2,1]      {0:4}           1
SSTTN     Push -1                       [2,1,-1]   {0:4}
TNST      Print as integer              [2,1]      {0:4}           -1
TSST      Subtract top two              [1]        {0:4}
NSSTN     Create Label_LOOP             [1]        {0:4}
 SNS      Duplicate top (1)             [1,1]      {0:4}
 NTTSN    If neg.: Jump to Label_EXIT   [1]        {0:4}
 SSSTN    Push 1                        [1,1]      {0:4}
 SNS      Duplicate top (1)             [1,1,1]    {0:4}
 TNST     Print as integer              [1,1]      {0:4}           1
 TSST     Subtract top two              [0]        {0:4}
 NSNTN    Jump to Label_LOOP            [0]        {0:4}

 SNS      Duplicate top (0)             [0,0]      {0:4}
 NTTSN    If neg.: Jump to Label_EXIT   [0]        {0:4}
 SSSTN    Push 1                        [0,1]      {0:4}
 SNS      Duplicate top (1)             [0,1,1]    {0:4}
 TNST     Print as integer              [0,1]      {0:4}           1
 TSST     Subtract top two              [-1]       {0:4}
 NSNTN    Jump to Label_LOOP            [-1]       {0:4}

 SNS      Duplicate top (-1)            [-1,-1]    {0:4}
 NTTSN    If neg.: Jump to Label_EXIT   [-1]       {0:4}
NSSSN     Create Label_EXIT             [-1]       {0:4}
                                                                            error

Dùng thử trực tuyến (chỉ có khoảng trắng, tab và dòng mới).
Dừng với lỗi: Thoát không được xác định.

AutoHotkey 32 byte

Thay thế chữ "C" bằng "EC" trừ khi số lượng C> 1, sau đó nó sẽ gửi "CEC" và thoát khỏi ứng dụng.

::C::EC
:*:CC::CEC^c
^c::ExitApp

C => EC
CC => CEC sau đó thoát khỏi chương trình. Bất kỳ Cs nào nữa sẽ được nhập sau khi chương trình thoát.

APL + THẮNG, 20 16 byte

4 byte được lưu nhờ Adám

Lời nhắc cho số nguyên n:

(-2≠⍴n)⌽n←1⎕/⍕10

1 cho hành lang khẩn cấp o cho xe ô tô.

J , 11 byte

1":1&<=i.,]

Hãy thử trực tuyến!

Dựa trên nhận xét của ngn .

Và 🚔:

1&<,~/@A.'🚔',~'🚘'$~,&4

MathGolf , 7 6 byte

ú░\┴╜╪

Hãy thử trực tuyến.

Đầu ra 1cho Evà 0cho C.

Giải trình:

ú         # 10 to the power of the (implicit) input
          #  i.e. 1 → 10
          #  i.e. 4 → 10000
 ░        # Convert it to a string
          #  i.e. 10 → "10"
          #  i.e. 10000 → "10000"
  \       # Swap so the (implicit) input is at the top of the stack again
   ┴╜     # If the input is NOT 1:
     ╪    #  Rotate the string once towards the right
          #   i.e. "10000" and 4 → "01000"
          # Output everything on the stack (which only contains the string) implicitly