ปฏิบัติตามเส้นทาง


18

ความท้าทายคือการติดตาม (วาด) เส้นทาง:

  • ^n - ขึ้น n บรรทัด
  • vn - ลงทีละบรรทัด
  • >n - ขวาโดย n ตำแหน่งอักขระ
  • <n - เหลือตำแหน่ง n อักขระ

  • nเป็นจำนวนเต็มมากกว่าศูนย์ (เช่นคุณไม่สามารถรับคำสั่งเหมือน>-2)
  • ไม่มีตัวคั่นระหว่างคำสั่งอินพุตที่มีรูปแบบที่ดีมีลักษณะดังนี้: >5v8<10^3ไม่อนุญาตให้ใช้อินพุตรูปแบบอื่น
  • จำนวนคำสั่งไม่ จำกัด
  • ไม่ควรมีตัวอักษรมากขึ้นที่จะคืบเข้าไปในอินพุต

ตัวอย่าง.

  1. อินพุตเป็นสตริงว่างเปล่าเอาต์พุต:

    *
    
  2. อินพุตเป็นอย่างใดอย่างหนึ่ง>3หรือ<3: โปรดทราบว่านี่ไม่ได้สร้างความแตกต่างให้กับเอาต์พุต

    ****
    
  3. คล้ายกันสำหรับ^3และv3:

    *
    *
    *
    *
    
  4. อินพุต: >1v2, เอาต์พุต:

    **
     *
     *
    
  5. อินพุต: ^4>3v2<1, เอาต์พุต:

    ****
    *  *
    * **
    *
    *
    
  6. หากคุณย้อนกลับไปและใช้เส้นทางเดิมอย่าวาดอะไรใหม่ เช่น>5<5

    ******
    
  7. ... แม้ว่าคุณจะไม่ได้วาดอะไรใหม่ ๆ แต่คุณเปลี่ยนตำแหน่งได้อย่างชัดเจน ดังนั้นหากอินพุตของคุณมีลักษณะดังนี้: >4<2v3ผลลัพธ์คือ:

    *****
      *
      *
      *
    
  8. นี่คือตัวอย่างที่ซับซ้อนมากขึ้น: 1) เส้นทางสามารถข้ามตัวเองได้ 2) โปรดทราบว่าสามขั้นตอนสุดท้ายของคำสั่งสุดท้ายจะเลื่อนทั้งเส้นทางไปทางขวา อินพุต: v6>4^3<7, เอาต์พุต:

       *
       *
       *
    ********
       *   *
       *   *
       *****
    
  9. อินพุต :

    ^2v2>3<3v3>4^5v5>3^5>4v2<4v3>4^3v3>3^5>4v2<4v3>7^5>4v2<4v3>9^3<2^2v2>4^2v2<2v3>8^5>2v4>2^4v5<3>6^5>5<5v2>5<5v2>5<4v1>8^3<1^2v2>1v2>2^3v3>2^2>1^2v2<1v3<3>11^3<2^2v2>4^2v2<2v3>5^5>5<5v2>5<5v2>5<4v1>7^5>4v2<4v3>4^3v3>3^5>4v2<3v1<1v2>3^1>1v1
    

    เอาท์พุท:

    *   *  *****  *****  *****  *   *     *** *  ******  *     *    *   *  ******  *****  *****
    *   *  *   *  *   *  *   *  *   *     * * *  *       *  *  *    *   *  *       *   *  *   *
    *****  *****  *****  *****  *****     * * *  ******  ** * **    *****  ******  *****  *****
    *   *  *   *  *      *        *       * * *  *        * * *       *    *       *   *  **
    *   *  *   *  *      *        *       * ***  ******   *****       *    ******  *   *  *  **
    *******************************************************************************************
    

6
เมื่อคุณโพสต์ความท้าทายนี้วันนี้ฉันคิดว่านี่จะเป็นกรณีทดสอบที่เหมาะสม: ^2v2>3<3v3>4^5v5>3^5>4v2<4v3>4^3v3>3^5>4v2<4v3>7^5>4v2<4v3>9^3<2^2v2>4^2v2<2v3>8^5>2v4>2^4v5<3>6^5>5<5v2>5<5v2>5<4v1>8^3<1^2v2>1v2>2^3v3>2^2>1^2v2<1v3<3>11^3<2^2v2>4^2v2<2v3>5^5>5<5v2>5<5v2>5<4v1>7^5>4v2<4v3>4^3v3>3^5>4v2<3v1<1v2>3^1>1v1.
insertusernamehere

คุณสามารถให้การใช้งานอ้างอิงได้หรือไม่?
LegionMammal978

มันไม่ได้เป็นล่อจริง ๆ เหรอ? โปรดตัดสินใจ: D
nicael

@nicael: ฉันจะบอกว่ามันไม่ได้; I / O นั้นแตกต่างกันและดูเหมือนว่าเส้นทางจะไม่สามารถข้ามกันได้ ฉันคิดว่าอันนี้ง่ายกว่าในวิธีที่สามารถใช้กลยุทธ์การเล่นกอล์ฟที่แตกต่างกัน อย่างไรก็ตามฉันไม่ทราบว่าฉันสามารถเปิดสิ่งเหล่านี้ได้ด้วยตัวเองทันใดฉันคิดว่าฉันแค่ลงคะแนนเท่านั้น
marinus

@marinus โอเคแล้ว ดังนั้นเกี่ยวข้อง: Yarr! แผนที่สู่ขุมทรัพย์ที่ซ่อนอยู่! .
nicael

คำตอบ:


2

MATL , 71 ไบต์

1thj'.\d+'XX"@Z)XK6L)U:"K1)XK118=K94=-K62=K60=-hv]]YstY)X<1--lqg10*32+c

ใช้รีลีสปัจจุบัน (6.0.0)ของภาษา / คอมไพเลอร์ ทำงานได้ใน Matlab และใน Octave

แก้ไข (21 มิถุนายน 2016): เนื่องจากการเปลี่ยนแปลงในภาษารหัสต้องมีการแก้ไขเล็กน้อยเพื่อให้ทำงานในรุ่นปัจจุบัน (16.0.0) คุณสามารถลองออนไลน์ได้รวมถึงการแก้ไขที่จำเป็น

ตัวอย่าง

>> matl
 > 1thj'.\d+'XX"@Z)XK6L)U:"K1)XK118=K94=-K62=K60=-hv]]YstY)X<1--lqg10*32+c
 > 
> ^4>3v2<1
    ****
    *  *
    * **
    *   
    *  

>> matl
 > 1thj'.\d+'XX"@Z)XK6L)U:"K1)XK118=K94=-K62=K60=-hv]]YstY)X<1--lqg10*32+c
 > 
> ^2v2>3<3v3>4^5v5>3^5>4v2<4v3>4^3v3>3^5>4v2<4v3>7^5>4v2<4v3>9^3<2^2v2>4^2v2<2v3>8^5>2v4>2^4v5<3>6^5>5<5v2>5<5v2>5<4v1>8^3<1^2v2>1v2>2^3v3>2^2>1^2v2<1v3<3>11^3<2^2v2>4^2v2<2v3>5^5>5<5v2>5<5v2>5<4v1>7^5>4v2<4v3>4^3v3>3^5>4v2<3v1<1v2>3^1>1v1
  *   *  *****  *****  *****  *   *     *** *  ******  *     *    *   *  ******  *****  *****
  *   *  *   *  *   *  *   *  *   *     * * *  *       *  *  *    *   *  *       *   *  *   *
  *****  *****  *****  *****  *****     * * *  ******  ** * **    *****  ******  *****  *****
  *   *  *   *  *      *        *       * * *  *        * * *       *    *       *   *  **   
  *   *  *   *  *      *        *       * ***  ******   *****       *    ******  *   *  *  **
  ******************************************************************************************* 

คำอธิบาย

โปรแกรมมีสี่ขั้นตอนหลัก:

  1. อ่านสตริงอินพุตและแบ่งออกเป็นส่วนประกอบ
  2. สร้างเมทริกซ์ 2 คอลัมน์โดยที่แต่ละแถวอธิบายการกระจัดของหน่วยในทิศทางที่เหมาะสม ตัวอย่างเช่น[0 -1]ระบุหนึ่งขั้นตอนทางด้านซ้าย แถวแรกคือต้นกำเนิดของเส้นทาง[1 1]
  3. คำนวณผลรวมสะสมของเมทริกซ์นั้นตามมิติแรก *ตอนนี้แต่ละแถวอธิบายพิกัดของที่ ทำให้ปกติเป็นค่าต่ำสุด1
  4. สร้างเมทริกซ์ใหม่ที่มี1ที่พิกัดที่ระบุโดยเมทริกซ์จากขั้นตอนที่ 3 และ0อื่น ๆ นี่จะถูกแปลงเป็น char matrix

รหัส:

1th                         % row vector [1 1]. Initiallize matrix of step 2
j                           % (step 1) read input string 
'.\d+'XX                    % split into components. Creates cell array of substrings
"                           % (step 2) for each component
   @Z)XK                    % unbox to obtain substring and copy
   6L)U:                    % obtain number and build vector of that size
   "                        % repeat as many times as that number
      K1)                   % paste substring. Get first character: '^', 'v', '>', '<'
      XK118=K94=-           % vertical component of unit displacement: -1, 0 or 1
      K62=K60=-             % horizontal component of unit displacement: -1, 0 or 1
      h                     % concatenate horizontally
      v                     % append vertically to existing matrix
   ]                        % end
]                           % end
Ys                          % (step 3) cumulative sum along first dimension
tY)X<1--                    % normalize to minimum value 1
lqg                         % (step 4) build matrix with 0/1
10*32+c                     % replace 0 by space and 1 by asterisk

มันใช้งานได้สำหรับตัวอย่างสุดท้าย?
nicael

ดีแค่ไหน! ใช่. ฉันได้แก้ไขคำตอบของฉันเพื่อรวมไว้
Luis Mendo

8

JavaScript (ES6), 204 211 210

แก้ไข 1 แก้ไขข้อผิดพลาด - ส่งออก '*' สำหรับการป้อนข้อมูลเป็นโมฆะ
แก้ไข 2 การถอดรหัสทิศทางที่ง่ายขึ้นไปยัง x และ y diff

นี่คือคำตอบของฉันในแผนที่ขุมสมบัติซึ่งแก้ไขเพื่อให้ตรงตามข้อกำหนด

F=m=>(m.replace(/\D(\d+)/g,(d,z)=>{for(;z--;r=[...r],r[x]=m,p[y]=r.join``)for(d<'>'?--x:d<'^'?++x:d<'v'?--y:++y,p=~x?~y?p:[y=0,...p]:p.map(r=>' '+r,x=0),r=p[y]||'';!r[x];)r+=' '},x=y=0,p=[m='*']),p.join`
`)

golfed น้อยและอธิบายมากหรือน้อย

f=m=>(
  x=y=0, // starting position
  p=['*'], // output string array (initialized with minimum output)
  m.replace( /\D(\d+)/g, 
  (d,z) => // execute the following for each group direction/length. Length in z, direction in d[0]
  {
    while( z--)  // repeat for the len
    {
      // check d to change values of x and y
      // all the comparison are with > and <, not equal
      // so that they work with the whole d, not just d[0]
      d<'>'?--x:d<'^'?++x:d<'v'?--y:++y,
      // now if x or y are < 0 then p must be adjusted  
      p = ~x 
        ? ~y
          ? p // both x and y are >= 0, p is not changed
          : [y = 0, ...p] // y < 0, shift p by on adding a 0 element and set y to 0
        : p.map(r=> ' ' + r, x = 0); // x < 0, add a space to the left for each row in p and set x to 0
      r = p[y] || ''; // get current row in r
      for( ; !r[x]; ) // if the current row is empty or too short
        r += ' '; // ... add spaces up to position x
      // set character in x position
      r = [...r], // the shorter way is converting to array ...
      r[x] = '*', // setting the element
      p[y] = r.join`` // and the back to string using join
    }
  }),
  p.join`\n` // return output array as a newline separated string
}

ทดสอบ

F=m=>(m.replace(/\D(\d+)/g,(d,z)=>{for(;z--;r=[...r],r[x]='*',p[y]=r.join``)for(d<'>'?--x:d<'^'?++x:d<'v'?--y:++y,p=~x?~y?p:[y=0,...p]:p.map(r=>' '+r,x=0),r=p[y]||'';!r[x];)r+=' '},x=y=0,p=['*']),p.join`
`)

// TEST
console.log = x => O.textContent += x + '\n';

console.log(F('')+'\n')

console.log(F('v6>4^3<7')+'\n')

console.log(F('^2v2>3<3v3>4^5v5>3^5>4v2<4v3>4^3v3>3^5>4v2<4v3>7^5>4v2<4v3>9^3<2^2v2>4^2v2<2v3>8^5>2v4>2^4v5<3>6^5>5<5v2>5<5v2>5<4v1>8^3<1^2v2>1v2>2^3v3>2^2>1^2v2<1v3<3>11^3<2^2v2>4^2v2<2v3>5^5>5<5v2>5<5v2>5<4v1>7^5>4v2<4v3>4^3v3>3^5>4v2<3v1<1v2>3^1>1v1'))
<pre id=O></pre>


ดูเหมือนว่าจะทำงานได้อย่างสมบูรณ์
nicael

*ยกเว้นเพียงคนเดียวเมื่อเข้าเป็นที่ว่างเปล่าความต้องการที่จะเขียน
nicael

กับคนที่เป็นเบราว์เซอร์จะมีปัญหากับการตีความ ES6: jsfiddle.net/2vrrd1wt
nicael

@ nicael ขอบคุณสำหรับการสังเกต แก้ไขสำหรับ 1 ไบต์
edc65

1

Perl, 174 ไบต์

@M=(['*']);pop=~s/(.)(\d+)/($z=ord$1)&64?($y+=$z&8?-1:1)<0&&unshift@M,[$y++]:($x+=($z&2)-1)<0?@M=map{[$x=0,@$_]}@M:0,$M[$y][$x]='*'for1..$2/gre;print map{map{$_||$"}@$_,$/}@M

ต้องการอินพุตเป็นอาร์กิวเมนต์บรรทัดคำสั่ง อย่าลืมอ้างเหตุผล!
ตัวอย่าง:perl 177.pl "<1^2>3v4<5^6>7v8<9^10>11"

ค่อนข้างอ่านได้:

@M=(['*']);                                 # output origin/starting position

pop=~                                       # apply regex to cmdline arg
s!(.)(\d+)!                                 # match $1=direction, $2=count

    ($z=ord$1)                              # get ASCII code for char
    &64                                     # 'v^' have this bit set, '<>' don't

        ?                                   # adjust y:
            ($y += $z&8 ? -1 : 1)           # '^' has bit set, 'v' doesn't
            < 0 &&                          # negative y?
            unshift @M, [$y++]              # prepend row; abuse [] for $y++ saving 3 bytes

        :                                   # adjust x:
            ($x+= ($z&2) -1 )               # '>' has bit set: 2-1=1, '<' hasn't: 0-1=-1
            < 0 ?                           # negative x?
                @M = map{ [$x=0,@$_] } @M   # prepend column, reset x
                :0                          # '?:0' shorter than '&&()'
        ,                                   # oh, and also:
        $M[$y][$x]='*'                      # output current position.

    for 1..$2                               # iterate count
!grex;                                      

print map{ map{$_||$"} @$_, $/ } @M         # iterate rows/cols, print '*' or space

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