Câu chuyện không cần thiết và phức tạp

Tôi đang đi dạo quanh manhattan, từng khối một và đôi chân của tôi đã mệt mỏi và muốn trở về nhà.

Giao thông khá tệ, nhưng may mắn là tôi rất giàu và tôi có một máy bay trực thăng ở chế độ chờ tại khách sạn. Nhưng tôi cần họ biết bao nhiêu nhiên liệu để đóng gói cho chuyến bay và họ cần biết khoảng cách trực tiếp của tôi từ khách sạn. Tôi đã nhớ những khối tôi đã đi và có thể cho họ biết tôi đã đi theo con đường nào. Khoảng cách này cần phải chính xác, nếu chúng quá ngắn, chúng tôi sẽ không quay trở lại, quá lâu và tôi đã mua nhiên liệu mà tôi không thể sử dụng.

Bạn có thể viết cho tôi một chương trình để chuyển đổi nó thành khoảng cách họ sẽ phải di chuyển trên chuyến bay của họ để lấy tôi không?

Đặc điểm kỹ thuật:

Viết cho tôi một chức năng:

1. Chấp nhận một danh sách hoặc chuỗi các khối được đặt tương đối với một lưới tùy ý:
   • U p, D riêng, L eft và R ight.
   • Có thể là chữ hoa hoặc chữ thường - vd. nếu nó ngắn hơn để sử dụng uthay vì Uđi trước.
   • Một hướng không hợp lệ có hành vi không xác định - ví dụ. một hướng của X có thể gây ra một thất bại.
2. Trả về số float / thập phân / double gấp đôi khoảng cách đường thẳng từ điểm gốc.

Để minh họa và làm rõ:

Chuyến đi của tôi có thể dễ dàng được ghi lại bằng "luluu..."hoặc ['l','u','l'...]nhưng nó phải được ghi lại là Lên, Xuống, Trái, Phải.

J, 17 ký tự

2*|+/0j1^'urdl'i.

Sử dụng thực tế, rằng quyền hạn jđại diện cho các hướng thích hợp.

• 'urdl'i. lấy chuỗi và tính các chỉ số (0 cho 'u', 1 cho 'r', ...)
• 0j1^biến đổi thành hướng trong mặt phẳng phức sử dụng công suất tương ứng của j.
• +/ tổng hợp các bước đơn
• 2*| hai lần mô-đun

Thí dụ:

> 2*|+/0j1^'urdl'i.'uuuudrrrl'
7.2111

Con trăn 2.7 56 58 56 51 48

Với Dime Number One bị đánh cắp từ Scrooge McDuck , tôi đã tạo ra tài sản của mình và giờ có nhiều tài sản hơn Scrooge.

y=lambda s:2*abs(sum(1j**(ord(i)%15)for i in s))

Python 2.7 - 61 53 50 (không phân biệt chữ hoa chữ thường)

y=lambda s:2*abs(sum(1j**(ord(i)%16%9)for i in s))

Thực hiện

>>> from random import sample
>>> y=lambda s:2*abs(sum((-1j)**(ord(i)%15)for i in s))
>>> path=sample('RLUD'*1000, 100)
>>> y(path)
20.0
>>> path=sample('RLUD'*1000, 100)
>>> y(path)
34.058772731852805

APL (29)

{|+/2 0j2×-⌿2 2⍴+/'URDL'∘.=⍵}

ví dụ

     {|+/2 0j2×-⌿2 2⍴+/'URDL'∘.=⍵} 'UUUUDRRRL'
7.211102551

Giải trình:

• +/'URDL'∘.=⍵: xem tần suất URDLxuất hiện của các ký tự trong đối số
• -⌿2 2⍴: trừ Ugiá trị khỏi Dgiá trị và Rgiá trị từ Lgiá trị
• 2 0j2×: nhân giá trị dọc với 2và giá trị ngang với2i
• +/: tổng
• |: cường độ

Ruby 1.9+ (67)

f=->s{2*(((g=s.method :count)[?U]-g[?D])**2+(g[?R]-g[?L])**2)**0.5}

Thí dụ

f["DRUULULLULL"] => 10.0
f["UUUUDRRRL"] => 7.211102550927978

perl6: 44 ký tự

2*abs [+] i <<**>>%(<U R D L>Z ^4){get.comb}

• get.comb được một dòng đầu vào và chia thành các ký tự
• <U R L D> là một danh sách các từ, ký tự trong trường hợp này
• (1,2,3) Z (4,5,6)== (1,2), (2,5), (3,6), do đó, nó kéo 2 danh sách vào nhau, tạo một danh sách các bưu kiện %()biến thành hàm băm
• <<**>>không ghép đôi **, mở rộng danh sách ngắn hơn để phù hợp với dài hơn. Danh sách ngắn hơn chỉ xảy rai
• [+]tính tổng tất cả các phần tử của một danh sách, abslấy mô-đun cho các số phức

Vâng, tôi đã loại bỏ tất cả các không gian có thể.

Con trăn 2.7 - 65

Đẹp và ngắn, cái này sử dụng số phức để bước qua mặt phẳng:

x=lambda s:2*abs(sum([[1,-1,1j,-1j]['RLUD'.index(i)]for i in s]))

Đạo cụ cho DSM và Abhijit trong các câu hỏi khác cho tôi thấy việc sử dụng 1jđể tính toán điều này.

Toán học 92 49

Calle xứng đáng tín dụng đầy đủ để hợp lý hóa mã.

f@l_:=2 N@Norm[Tr[l/.{"r"→1,"l"→-1,"u"→I,"d"→-I}]]

Thí dụ

f[{"u", "u", "u", "u", "d", "r", "r", "r", "l"}]

7.211

PHP, 67

function f($a){foreach($a as$d)@$$d++;return 2*hypot($U-$D,$L-$R);}

Thí dụ:

<?php
var_dump(f(array('U', 'U', 'U', 'U', 'D', 'R', 'R', 'R', 'L')));

>float(7.211102550928)

Julia, 45

f(l)=2*abs(sum([im^(c=='d'?3:c) for c in l]))

Lấy trộm iđể quyền hạn lừa. Ngoài ra tất cả các ký tự ngoại trừ d có các giá trị hoạt động như các quyền hạn được chấp nhận i.

J, 29 ký tự

+:+&.*:/-/_2[\#/.~/:~'ruld'i.

Chỉ làm việc với hướng chữ thường và bất kỳ nhân vật khác hơn r, u, l, và dsẽ gây ra nó để đưa ra một câu trả lời sai.

Sử dụng:

   +:+&.*:/-/_2[\#/.~/:~'ruld'i.'uuuudrrrl'
7.2111

Giải trình:

'ruld'i.'uuuudrrrl'Dạng dyadic i.tìm chỉ mục của các mục từ đối số bên phải trong đối số bên trái. Trong trường hợp này:

   'ruld'i.'uuuudrrrl'
1 1 1 1 3 0 0 0 2

/:~ sắp xếp danh sách này theo thứ tự tăng dần:

   /:~'ruld'i.'uuuudrrrl'
0 0 0 1 1 1 1 2 3

#/.~ đếm số lần xuất hiện của mỗi số:

   #/.~/:~'ruld'i.'uuuudrrrl'
3 4 1 1

_2[\ chia thành 2 hàng:

   _2[\#/.~/:~'ruld'i.'uuuudrrrl'
3 4
1 1

-/ trừ đáy từ trên xuống

   -/_2[\#/.~/:~'ruld'i.'uuuudrrrl'
2 3

+&.*:mượn một mẹo từ một câu trả lời J khác mà tôi đã thấy sáng nay , và bình phương các mục, sau đó tính tổng chúng, sau đó thực hiện một căn bậc hai. Xem dưới&. tài liệu:

   +&.*:/-/_2[\#/.~/:~'ruld'i.'uuuudrrrl'
3.60555

+: nhân đôi kết quả:

   +:+&.*:/-/_2[\#/.~/:~'ruld'i.'uuuudrrrl'
7.2111

R, 86 74 56 ký tự

Ok nó thực sự ngắn hơn với những con số tưởng tượng thực sự:

2*Mod(sum(sapply(scan(,""),switch,u=1i,d=-1i,l=-1,r=1)))

Sử dụng:

> 2*Mod(sum(sapply(scan(,""),switch,u=1i,d=-1i,l=-1,r=1)))
1: u u u u d r r r l
10: 
Read 9 items
[1] 7.211103

Giải pháp cũ với 74 ký tự với xy coords:

2*sqrt(sum(rowSums(sapply(scan(,""),switch,u=0:1,d=0:-1,l=-1:0,r=1:0))^2))

Sử dụng:

> 2*sqrt(sum(rowSums(sapply(scan(,""),switch,u=0:1,d=0:-1,l=-1:0,r=1:0))^2))
1: u u u u d r r r l
10: 
Read 9 items
[1] 7.211103

Lấy đầu vào là stdin, cần phải viết thường và phân tách không gian. Sử dụng tọa độ xy bắt đầu từ (0,0).

k ( 50 49)

{2*sqrt x$x:0 0f+/("udlr"!(1 0;-1 0;0 -1;0 1))@x}

Thí dụ

{2*sqrt x$x:0 0f+/("udlr"!(1 0;-1 0;0 -1;0 1))@x}"uuuudrrrl"
7.211103

Java, 185, 203 , 204 , 217 , 226

class A{public static void main(String[] a){int x=0,y=0;for(int i=0;i<a[0].length();i++) switch(a[0].charAt(i)){case'U':y++;break;case'D':y--;break;case'L':x++;break;case'R':x--;}System.out.print(Math.hypot(x,y)*2);}}

Tôi đã giả sử rằng mỗi "U" là "1 lên", vì vậy hai đơn vị trở lên sẽ là "UU"

Chỉnh sửa: hoán đổi công tắc cho ifs

class A{public static void main(String[]a){int x=0,y=0;for(int i=0;i<a[0].length();i++){int c=a[0].charAt(i);if(c=='U')y++;if(c=='D')y--;if(c=='L')x++;if(c=='R')x--;}System.out.print(Math.hypot(x,y)*2);}}

Đã chuyển cho iterator

class A{public static void main(String[]a){int x=0,y=0;for(int i=0;i<a[0].length();){int c=a[0].charAt(i++);if(c=='U')y++;if(c=='D')y--;if(c=='L')x++;if(c=='R')x--;}System.out.print(Math.hypot(x,y)*2);}}

Không còn nhận đầu vào dưới dạng chuỗi, thay vào đó là mảng chỉ đường

class A{public static void main(String[]a){int x=0,y=0;for(String s:a){char c=s.charAt(0);if(c=='U')y++;if(c=='D')y--;if(c=='L')x++;if(c=='R')x--;}System.out.print(Math.hypot(x,y)*2);}}

T-SQL, 158

IF PATINDEX('%[^UDLR]%', @s)=0 select 2*sqrt(power(LEN(REPLACE(@s,'U',''))-LEN(REPLACE(@s,'D','')),2)+power(LEN(REPLACE(@s,'L',''))-LEN(REPLACE(@s,'R','')),2))

@S là chuỗi đầu vào của kiểu varchar (max)

ES6, 77 69

Định nghĩa:

f=s=>{u=d=l=r=0;for(c of s)eval(c+'++');return 2*Math.hypot(u-d,l-r)}

Sử dụng:

>>> f('uuuudrrrl')
7.211102550927979
>>> f( 'uuuudrrrl'.split('') )
7.211102550927979

• Chấp nhận chuỗi HOẶC mảng (chữ thường)
• Không sử dụng số ảo
• Sẽ không thể có được chỉ 3 ngày trước khi OP đăng câu hỏi ; nghĩa là, nó chỉ chạy trong Firefox 27+ (và có thể cả Chrome với các công cụ thử nghiệm được bật, chưa được thử nghiệm :) !!

(Lấy cảm hứng một phần bởi câu trả lời của Boann.)

JavaScript - 142 ký tự - không có eval ()

function r(a){return Math.sqrt(Math.pow(a.match(/u/g).length-a.match(/d/g).length,2)+Math.pow(a.match(/l/g).length-a.match(/r/g).length,2))*2}

trong đó a là một chuỗi như 'uudrrl'

sử dụng như thế này -

a='uudrrl'
r(a)

Kiểm tra trong bảng điều khiển trình duyệt.

var x = "luluurrrrurd"
r(x)
8.48528137423857

C # - 90 ký tự

Mới từ LINQPad.

int x=0,y=0;input.Max(i=>i==85?y++:i==82?x++:i==68?y--:x--);(Math.Sqrt(x*x+y*y)*2).Dump();

Trong đó đầu vào là một chuỗi hợp lệ.

>string input = "LULUURRRRURD";

>8.48528137423857

Befunge-93 (65)

Nó có 65 ký tự không phải khoảng trắng (217 với khoảng trắng, mặc dù có thể giảm bớt bằng cách bố trí nhỏ gọn hơn (đối với 69/176 ký tự)). Nó có một số tự do với định dạng đầu ra, nhưng không thể phủ nhận chính xác. Có vẻ như không xứng đáng với nỗ lực để thực hiện / đánh cắp việc thực hiện căn bậc hai.

v                  >$:*\:*+88*4*5-2.,.@
               >3-:|
           >6-:|
       >8-:|
>~"D"-:|
       $   $   $   $
           \   \
       1   1   1   1
       -   -   +   +
           \   \
^      <   <   <   <

echo 'UUDLLUU' | ./befungee.py ../man đầu ra 2√13 (thực tế việc triển khai dường như có vấn đề với ASCII mở rộng).

Matlab, 51 ký tự

Trình Matlab của tôi, chỉ hoạt động với các chữ cái bị giam cầm. Đây là một niềm vui! Phần khó nhất là chuyển đổi chuỗi thành một chuỗi các số phức được tổng hợp.

Chức năng:

f=@(s)abs(sum(fix((s-76.5)/8.5)+((s-79)*i/3).^-99))

Sử dụng:

>> f=@(s)abs(sum(fix((s-76.5)/8.5)+((s-79)*i/3).^-99))
>> f('UURDL')
ans =

     1
>>

Javascript, 136

function z(a){var x=a.split('u').length-a.split('d').length;var y=a.split('r').length-a.split('l').length;return Math.sqrt(x*x+y*y)*2;};
document.write(z('uuuudrrrwl'));
7.211102550927978

JavaScript, 89

function f(a){U=D=L=R=0;for(d in a)eval(a[d]+'++');return 2*Math.sqrt((U-=D)*U+(L-=R)*L)}

Thí dụ:

<script>
document.write(f(['U', 'U', 'U', 'U', 'D', 'R', 'R', 'R', 'L']));
</script>

>7.211102550927978

C, 120

float d(char *p){int v=0,h=0;while(*p){v+=*p=='U'?1:*p=='D'?-1:0,h+=*p=='R'?1:*p=='L'?-1:0,++p;}return 2*sqrt(v*v+h*h);}

d("LULUURRRRURD") -> 8.485281

JavaScript (không ES6, không eval) - 131

f=function(h){for(i=0,a=[0,,0,0,0];i<h.length;++i)++a[(h.charCodeAt(i)>>2)-25];x=a[0]-a[4];y=a[2]-a[3];return Math.sqrt(x*x+y*y)*2}

Kiểm tra:

console.log(f('uuuudrrrl'));     // 7.211102550927978 
console.log(f('luluurrrrurd'));  // 8.48528137423857