Chênh lệch BCD

Cho một số nguyên n, chuyển đổi nó thành BCD ( số thập phân được mã hóa nhị phân ) bằng cách thay thế mỗi chữ số thập phân bằng biểu diễn nhị phân 4 chữ số của nó

 234 -> 0 0 1 0 0 0 1 1 0 1 0 0

Sau đó xoay danh sách các chữ số nhị phân để tìm các số lớn nhất và nhỏ nhất, có thể được đại diện bởi danh sách này mà không cần sắp xếp lại.

max: 1 1 0 1 0 0 0 0 1 0 0 0  (the entire list rotated left 6 times)
min: 0 0 0 0 1 0 0 0 1 1 0 1 (the entire list rotated right 2 times)

Chuyển đổi các số này thành số thập phân, coi danh sách các bit là nhị phân thông thường và trừ số nhỏ nhất từ ​​số lớn nhất:

1 1 0 1 0 0 0 0 1 0 0 0 -> 3336
0 0 0 0 1 0 0 0 1 1 0 1 -> 141

3336 - 141 -> 3195

Đầu ra là sự khác biệt của các số lớn nhất và nhỏ nhất được tìm thấy.

Các trường hợp thử nghiệm:

234 -> 3195
1234 -> 52155
12 -> 135
975831 -> 14996295
4390742 -> 235954919
9752348061 -> 1002931578825

Ngôn ngữ Wolfram (Mathicala) , 89 88 byte

Cảm ơn Jenny_mathy đã lưu 1 byte.

i=IntegerDigits;Max@#-Min@#&[#~FromDigits~2&/@NestList[RotateRight,Join@@i[i@#,2,4],#]]&

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

Điều này là không hiệu quả khủng khiếp, bởi vì nó tạo ra n vòng quay BCD của n , đó là cách nhiều hơn chúng ta cần. Chúng ta có thể làm cho việc này hiệu quả hơn một chút bằng cách lưu kết quả của việc Join@@vào kvà thay thế #ở cuối bằng Length@k. Điều đó cho phép chúng tôi tạo ra một biểu đồ phân tán khá dễ dàng:

Tôi thực sự bị thu hút bởi sự tương phản của cấu trúc địa phương và sự hỗn loạn nói chung.

Thạch , 13 byte

Dd4d2FṙJ$ḄṢIS

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

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

Dd4d2FṙJ$ḄṢIS  Main link. Argument: n

D              Decimal; convert n to base 10 (digit array).
 d4            Divmod 4; map each digit d to [d/4, d%4].
   d2          Divmod 2; map each [d/4, d%4] to [[d/8, d/4%2], [d%4/2, d%2]].
     F         Flatten the resulting 3D binary array.
      ṙJ$      Take all possible rotations.
         Ḅ     Convert each rotation from binary to integer.
          Ṣ    Sort the resulting integer array.
           I   Take the forward differences.
            S  Take the sum.

Python 3 , 115 108 byte

cảm ơn Jonathan Frech cho -7 byte

k=''.join(f'{int(i):04b}'for i in input())
v=[int(k[i:]+k[:i],2)for i in range(len(k))]
print(max(v)-min(v))

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

PowerShell , 153 byte

$b=[char[]]-join([char[]]"$args"|%{[convert]::toString(+"$_",2).PadLeft(4,'0')})
($c=$b|%{$x,$y=$b;[convert]::ToInt64(-join($b=$y+$x),2)}|sort)[-1]-$c[0]

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

Các cuộc gọi .NET dài ngu ngốc để chuyển đổi sang / từ nhị phân thực sự làm tăng độ dài ở đây. ;-)

Chúng tôi lấy đầu vào là $args, bọc nó trong một chuỗi, sau đó đúc nó thành một char-array. Chúng tôi lặp qua từng chữ số, convertlấy chữ số toStringtrong cơ sở 2(nghĩa là biến chữ số thành số nhị phân), sau đó .padLeftbiến nó thành số nhị phân bốn chữ số. Mảng kết quả của chuỗi đó sau đó được -joined thành một chuỗi duy nhất và được đúc lại dưới dạng char-array trước khi được lưu vào $b.

Tiếp theo, chúng tôi lặp lại $b, điều này chỉ đảm bảo rằng chúng tôi lặp đủ số lần để tính cho mỗi vòng quay. Mỗi lần lặp, chúng ta bóc ký tự đầu tiên thành $xvà các ký tự còn lại $ysử dụng nhiều phép gán. Sau đó, chúng ta hợp nhất chúng lại với nhau $b=$y+$xđể di chuyển phần tử đầu tiên đến cuối, nghĩa là, xoay mảng một cách hiệu quả. Đó là -joined thành một chuỗi, được sử dụng làm đầu vào cho convertcuộc gọi để biến chuỗi từ cơ sở nhị phân 2thành một chuỗi Int64. Chúng tôi sau đó sorttất cả các số kết quả và lưu trữ chúng vào $c. Cuối cùng, chúng tôi lấy lớn nhất [-1]và trừ nhỏ nhất [0]. Đó là còn lại trên đường ống và đầu ra là ẩn.

Ohm v2 , 15 byte

€b4Ü. 0\;Jγó↕]a

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

Giải trình:

€b4Ü. 0\;Jγó↕]a  Main wire, arguments: a (integer)

€       ;        Map the following over each digit of a...
 b                 Convert to binary
  4Ü               Right-justify w/ spaces to length 4
    . 0\           Replace all spaces with zeroes
         J       Join together binary digits
          γó     Get all possible rotations and convert back to decimal
            ↕    Find the minimum *and* maximum rotation
             ]a  Flatten onto stack and get the absolute difference

JavaScript (ES6), 118 100 99 byte

f=
n=>(g=m=>Math[m](...[...s=(`0x1`+n-0).toString(2)].map(_=>`0b${s=0+s.slice(2)+s[1]}`)))`max`-g`min`

<input type=number min=0 oninput=o.textContent=f(this.value)><pre id=o>

Chỉnh sửa: Đã lưu 11 byte nhờ @RickHitchcock. Đã lưu 1 byte nhờ @ETHproductions. Giải thích: 0x1Tiền tố làm cho đầu vào được lặp lại dưới dạng số thập lục phân, có nhị phân giống như BCD của số gốc với tiền tố 1 (Tôi nghĩ rằng đây là golfer hơn bất kỳ cách đệm nào khác với bội số của 4 chữ số) . Không bao gồm tiền tố được thay đổi từ 1 thành 0, chuỗi kết quả sau đó được xoay ở mỗi vị trí có thể và được chuyển đổi từ nhị phân trở lại thập phân. Cuối cùng, tối đa và tối thiểu được trừ.

Python 2 , 115 113 byte

• Đã lưu một số byte nhờ vào ovs .
• Lưu hai byte nhờ ông Xcoder .

b="".join(format(int(n),"04b")for n in`input()`)
b=[int(b[s:]+b[:s],2)for s in range(len(b))]
print max(b)-min(b)

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

Bình thường , 29 byte

Ksm.[\04.Bsd`Q-eJSmi.<Kd2lKhJ

Hãy thử nó ở đây! hoặc Kiểm tra bộ thử nghiệm.

Husk , 18 byte

§-▼▲mḋUMṙNṁȯtḋ+16d

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

Cần có một cách ngắn hơn để chuyển đổi một chữ số thành biểu diễn nhị phân 4 bit của nó ...

Giải trình

§-▼▲mḋUMṙNṁȯtḋ+16d
                 d    Get the list of digits of the input
          ṁȯ          For each digit...
              +16      add 16
             ḋ         convert to binary
            t          drop the first digit
       MṙN            Rotate the list by all possible (infinite) numbers
      U               Get all rotations before the first duplicated one
    mḋ                Convert each rotation from binary to int
§-▼▲                  Subtract the minimum from the maximum value

APL (Dyalog) , 31 byte

Toàn thân chương trình. Lời nhắc cho số từ STDIN. In kết quả sang STDOUT.

(⌈/-⌊/)2⊥¨(⍳≢b)⌽¨⊂b←,⍉(4/2)⊤⍎¨⍞

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

⍞ lời nhắc cho dòng văn bản từ STDIN

⍎¨ thực hiện (đánh giá) từng (ký tự)

(... )⊤ mã hóa (anti-base) trong hệ thống số sau:

 4/2 bốn bit nhị phân

⍉ hoán vị

, ravel (làm phẳng)

b← lưu trữ trong b(cho b inary)

⊂ kèm theo (để chúng tôi sẽ sử dụng toàn bộ danh sách này cho mỗi vòng quay)

(... )⌽¨ xoay (trái) bởi mỗi người trong số các khoản sau:

≢b độ dài của b

 ⍳ tôi nghĩ về điều đó

2⊥¨ giải mã từng từ cơ sở-2.

(... ) áp dụng các chức năng ngầm sau đó

 ⌈/ tối đa (giảm giá)

 - dấu trừ

 ⌊/ min (giảm giá)

APL (Dyalog) , 37 34 byte

{(⌈/-⌊/)2⊥¨(⍳⍵)∘.⌽⊂,↑(4⍴2)∘⊤¨⍎¨⍕⍵}

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

Thạch , 21 byte

DB0;$4¡€ṫ€-3FṙJ$ḄµṀ_Ṃ

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

Ruby , ₉₆ 91 byte

->n{r=""
n.digits.map{|d|r="%04b"%d+r}
s=r.chars.map{(r=r[1..-1]+r[0]).to_i 2}
s.max-s.min}

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

• Đã lưu 5 byte nhờ displayname

Toán học, 110 99 byte

Max@#-Min@#&[#~FromDigits~2&/@Partition[s=Join@@Tuples[{0,1},4][[IntegerDigits@#+1]],Tr[1^s],1,1]]&

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

Python 3, 141 byte

def f(a):a=''.join([format(int(i),'#010b')[-4:]for i in str(a)]);b=[int(''.join(a[-i:]+a[:-i]),2)for i in range(len(a))];return max(b)-min(b)

Dùng thử trực tuyến

Võng mạc , 96 89 byte

.
@@@$&
@(?=@@[89]|@[4-7]|[2367])
_
T`E`@
\d
_
.
$&$'$`¶
O`
_
@_
+`_@
@__
s`(_+).*\W\1

_

Hãy thử trực tuyến! Hơi chậm, vì vậy liên kết chỉ bao gồm một trường hợp thử nghiệm nhỏ. Chỉnh sửa: Đã lưu 7 byte nhờ @MartinEnder. Giải trình:

.
@@@$&

Tiền tố ba @s cho mỗi chữ số. (Chúng đại diện cho 0s của BCD, nhưng là golfer.)

@(?=@@[89]|@[4-7]|[2367])
_

Thay đổi @s thành _s (đại diện cho 1s của BCD) khi thích hợp.

T`E`@
\d
_

Sửa chữ số cuối của BCD.

.
$&$'$`¶

Tạo tất cả các phép quay.

O`

Sắp xếp chúng theo thứ tự tăng dần.

_
@_
+`_@
@__

Chuyển đổi chúng thành unary.

s`(_+).*\W\1

_

Trừ số đầu tiên từ số cuối cùng, bỏ qua các số trung gian và chuyển đổi thành số thập phân.

Haskell , 130 byte

r=foldl1
f x=max#x-min#x
f#x|s<-show x=r((+).(2*)).r f.take(sum$4<$s).iterate(drop<>take$1)$do d<-s;mapM(pure[0,1])[1..4]!!read[d]

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

Giải thích / Ungolfed

Vì chúng ta sẽ sử dụng foldl1((+).(2*)) để chuyển đổi từ nhị phân sang thập phân, chúng tôi cũng có thể không sử dụng maximumvà minimumthay vào đó foldl1 max(hoặc tương tự với mintương ứng) và sử dụng một đoạn ngắn r = foldr1.

Bây giờ, hãy để chúng tôi xác định một toán tử f#x chuyển đổi xthành BCD, tạo ra tất cả các phép quay, giảm chúng bằng cách sử dụng fvà chuyển đổi nó thành số thập phân:

f # xs
  | s <- show xs
  = foldr1 ((+).(2*))                             -- convert from binary to decimal
  . foldr1 f                                      -- reduce by either max or min
  . take (4 * length s)                           -- only keep 4*length s (ie. all "distinct" rotations)
  . iterate (drop<>take $ 1)                      -- generate infinite list of rotations
  $ do d<-s; mapM (pure[0,1]) [1..4] !! read [d]  -- convert to BCD

Bây giờ chỉ còn là vấn đề sử dụng toán tử này một lần với maxvà một lần với minvà trừ đi kết quả của họ:

f x = max#x - min#x

PHP, 156 153 byte

<?foreach(str_split($argv[1])as$n)$s.=str_pad(decbin($n),4,0,0);for(;$i<$a=strlen($s);)$r[]=bindec(substr($s,$i).substr($s,0,$i++));echo max($r)-min($r);

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

Japt -x , 20 byte

®¤ùT4쬣ZéY ì2Ãn äa

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

Nhập vào như một mảng các chữ số.

Giải trình:

®¤                      #Map each digit to base 2
  ùT4Ã                  #Pad each one to 4 places
      ¬                 #Join them to a single binary string
       ¬                #Split them to an array of single characters
        £      Ã        #For each index Y in that array:
         ZéY            # Get the array rotated Y times
             ì2         # Convert the array from binary to decimal
                n       #Sort the results
                  äa    #Get the absolute difference between each element
                        #Implicitly output the sum

Bình thường, 24/26 byte

s.+Smi.>Gd2l=Gsm.[\04.Bs

Đưa đầu vào dưới dạng một chuỗi trích dẫn. 26 byte nếu cần lấy đầu vào làm số nguyên; nối dzvào trường hợp đó

Các trường hợp kiểm tra (đầu vào dưới dạng chuỗi, 24 byte)

Các trường hợp kiểm tra (đầu vào là số, 26 byte)

J, 43 byte

3 :'(>./-<./)#.(i.@#|."0 1]),}.#:8,"."0":y'

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

Đôi khi phong cách ngầm làm cho mọi thứ khó khăn. Nhưng có lẽ có một cách để làm điều đó theo kiểu ngầm mà ngắn gọn hơn nhiều so với cách này. Tôi nghĩ rằng tôi nhớ một cách tốt hơn để chia một số thành các chữ số khác "."0@":nhưng tôi dường như không thể nhớ lại ...

Giải trình

3 :'(>./-<./)#.(i.@#|."0 1]),}.#:8,"."0":y'
                                         y  the input (integer)
                                       ":   convert to string
                                   "."0     evaluate each char (split to digits)
                                 8,         prepend 8
                               #:           debase 2
                             }.             behead (remove the 8)
                            ,               ravel (flatten)
               (i.@#|."0 1])                create a list of rotations
                    |.    ]                   rotate the list
                      "0 1                    for each number on the left
                i.@#                          range 0 ... length - 1
             #.                             convert rotations back to base 10
    (>./-<./)                               max minus min

Việc chuẩn bị và loại bỏ 8 là để đảm bảo rằng có đúng số 0 (J sẽ định hình lại các mảng của nó thành kích thước của phần tử độ dài tối đa của chúng và 8 là 4 chữ số trong nhị phân để nó được sử dụng).

APL (NARS), 34 ký tự, 68 byte

{(⌈/-⌊/)2⊥¨{⍵⌽a}¨⍳≢a←∊⍉(4⍴2)⊤⍎¨⍕⍵}

một số thử nghiệm nhỏ:

  h←{(⌈/-⌊/)2⊥¨{⍵⌽a}¨⍳≢a←∊⍉(4⍴2)⊤⍎¨⍕⍵}
  h 9752348061
1002931578825
  h 0
0

Perl 5 , 97 91 89 + 2 ( -F) = 99 93 91 byte

$a=sprintf"%04b"x@F,@F;@r=sort{$b<=>$a}map{oct"0b".($a=(chop$a).$a)}(@F)x4;say$r[0]-pop@r

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