Wprowadzenie

W tym wyzwaniu powinieneś podzielić liczbę całkowitą na dwie części. Ponieważ nikt nie lubi kupować mniejszego kawałka ciasta, Twoim celem jest zachowanie jak największej uczciwości. Na przykład, jeśli chcesz podzielić liczbę całkowitą 7129na dwie części, możesz to zrobić na 3 sposoby.

7,129, 71,29I 712,9są wszystkie możliwości, ale 71,29jest najpiękniejszy sposób dzieląc go na dwie części, ponieważ minimalizuje różnicę między nimi:

7 129 -> |7-129| = 122
71 29 -> |71-29| = 42
712 9 -> |712-9| = 703

Wyzwanie

Podając liczbę całkowitą określ najlepszy możliwy sposób podziału na partycje, jak opisano powyżej i zgłoś wynikową różnicę.

Zasady

• Dzielenie ma sens tylko w przypadku liczb całkowitych o długości co najmniej dwóch, wartość wejściowa zawsze będzie wynosić ≥ 10
• Dane wejściowe mogą być liczbą całkowitą, listą cyfr lub łańcuchem
• Nie musisz obsługiwać nieprawidłowych danych wejściowych

Przypadki testowe

Musisz tylko zgłosić wynikową różnicę, partycjonowanie jest tutaj tylko dla ilustracji:

10 -> 1,0 -> 1
11 -> 1,1 -> 0
12 -> 1,2 -> 1
13 -> 1,3 -> 2
101 -> 1,01 -> 0
128 -> 12,8 -> 4
313 -> 3,13 -> 10
1003 -> 1,003 -> 2
7129 -> 71,29 -> 42
81128 -> 81,128 -> 47
999999 -> 999,999 -> 0
9999999 -> 999,9999 or 9999,999 -> 9000

Brachylog , 12 11 bajtów

Moja pierwsza odpowiedź Brachylog

Weź dane jako ciąg

{~cĊịᵐ-ȧ}ᶠ⌋

Wypróbuj online!

Wyjaśnienie:

ᶠbędzie f ind wszystkie możliwe wyjścia dla orzeczenia w {…}i przechowywać je w postaci listy. ~cmówi, że wyjście to lista, gdy c oncatenated jest równa wejściu. Dalej Ċzapewnia, że ​​wyjście ~cma długość 2.

ịᵐkonwertuje oba elementy wyjścia na liczby całkowite (pozbywa się to wiodących 0s), -ȧprzyjmuje bezwzględną różnicę dwóch elementów.

Gdy mamy już listę wszystkich możliwych wyników, otrzymujemy minimum elementu z ⌋

Haskell , 48 bajtów

f n=minimum[abs$n`div`10^k-n`mod`10^k|k<-[1..n]]

[1..n] czyni to zbyt wolnym dla większych przypadków testowych.

Wypróbuj online!

05AB1E , 9 bajtów

Kod:

ā¤âε£ÆÄ}W

Wykorzystuje kodowanie 05AB1E . Wypróbuj online!

Wyjaśnienie

ā            # Get the array [1, 2, .., len(input)]
 ¤â          # Cartesian product with the last element, (e.g. for input 12345:
               [[1, 5], [2, 5], [3, 5], [4, 5], [5, 5]])
   ε   }     # For each element:
    £        #   Get the substrings (12345 [3, 5] £ --> [123, 45])
     Æ       #   Reduce by subtraction
      Ä      #   Get the absolute value
        W    # Take the minimum of all results

Python 2 , 64 bajty

lambda n:min(abs(int(n[i:])-int(n[:i]))for i in range(1,len(n)))

Wypróbuj online!

Perl 6 , 40 bajtów

{min map {abs [-] @$_},m:ex/^(.+)(.+)$/}

Sprawdź to

Rozszerzony:

{  # bare block lambda with implicit parameter ｢$_｣

  min
    map
      {
        abs
          [-]    # reduce with &infix:«-»
            @$_  # the input of this inner block as a Positional
      },

      # split ｢$_｣ into 2 in every possible way
      m
      :exhaustive
      /^ (.+) (.+) $/
}

C, 94 bajty

c,r,d,a;f(n){for(c=1,r=0,d=n<11?1:n;n;r+=n%10*c,c*=10,n/=10)a=abs(r-n),d=r&&a<d?a:d;return d;}

Wypróbuj online!

Python 2 , 51 bajtów

f=lambda n,k=1:min(abs(n/k-n%k),k/n*n or f(n,10*k))

Wypróbuj online!

Prolog (SWI) , 195 189 154 117 112 bajtów

35 bajtów zaoszczędzonych dzięki Emingi

A*H:-findall(X,(between(0,A,I),r(A,I,X)),L),sort(L,[H|_]),!.
r(A,B,C):-Z is 10**B,divmod(A,Z,X,Y),C is abs(X-Y).

Wypróbuj online!

To moja pierwsza próba gry w golfa w prologu, więc może być trochę przerażająca. Oto jak to działa.

Na najwyższym poziomie mamy *. *bierze Ai Hokreśla, czy Hjest to najmniejszy sposób podziału A.

    A*H:-
      findall(X,(between(0,A,I),call(r,A,I,X)),L),
      sort(L,[H|_]),
      !.

Pierwsza linia tutaj wykorzystuje technikę z tego wpisu SO , aby zasadniczo wykonać mapę predykatu r(A)na liczbach całkowitych od 0do A. Ponieważ rpotwierdza wartości każdej partycji, daje nam to wartości wszystkich możliwych partycji oraz całe mnóstwo dodatkowych śmieci. Wszystkie te partycje będą przechowywane w Ldowolnej kolejności. Po wykonaniu tej czynności sortujemy listę w celu znalezienia najmniejszego elementu. Następnie używamy cięcia, aby zapobiec nawrotom.

Następnie mamy definicję r. Najpierw roblicza dwa wyniki podziału, nazywając je Xi Y.

r(A,B,C):-
  Z is 10**B,
  divmod(A,Z,X,Y),
  C is abs(X-Y).

Twierdzimy, że Cto ich różnica i jest pozytywna.

  C is abs(X-Y).

Haskell , 68 65 bajtów

f x=minimum[abs$read(take i x)-read(drop i x)|i<-[1..length x-1]]

Wypróbuj online!

Wyjaśnienie

minimum              -- Minimum of ...
 [abs$               -- The absolute value of ...
  read(take i x)     -- The first i characters of x
  -                  -- Minus ...
   read(drop i x)    -- The last i characters of x
 |i<-[1..length x-1] -- From i=1 to i=length x - 1
 ]

Węgiel drzewny , 14 bajtów

Ｉ⌊Ｅθ↔⁻Ｉ…θκＩ✂θκ

Wypróbuj online! Link jest do pełnej wersji kodu. Dogodnie mogę skorzystać z 2-argowego wariantu Slice. Wyjaśnienie:

   θ            Input string
  Ｅ             Map over characters
        θ   θ   Input string
         κ   κ  Current map index
       …        Mold to length (i.e. head)
           ✂    Slice (i.e. tail)
      Ｉ   Ｉ     Cast to integer
     ⁻          Subtract
    ↔           Absolute value
 ⌊              Minimum
Ｉ               Cast to string
                Implicitly print

Galaretka , 9 8 bajtów

ḌÐƤḊạḌƤṂ

Wypróbuj online!

-1 bajt dzięki Dennisowi. Dane wejściowe to lista cyfr.

Wyjaśnienie

ḌÐƤḊạḌƤṂ
ḌÐƤ          Convert to integer from decimal for all Ƥostfixes. [1,2,3]->[123,23,3]
   Ḋ         Remove the first element ->[23,3]
     ḌƤ      Convert to integer from decimal for all Ƥrefixes [1,2,3]->[1,12,123]
    ạ        Absolute difference. [23,3]ạ[1,12,123]->[22,9,123]
       Ṃ     Minimum

Funky , 159 134 99 bajtów

s=>{S={}fori=1i<#s i++{S[#S]=(((v=s::sublist)(0,i)::reduce@..-v(i)::reduce@..)^2)^.5};math.min...S}

Właściwie dopasowanie specyfikacji wydaje się krótsze.

Wypróbuj online!

Siatkówka , 36 bajtów

\B
,$'¶$`
\d+
$*
(1*),\1

Om`^.*
\G1

Wypróbuj online!

Wyjaśnienie

\B
,$'¶$`

To generuje wszystkie możliwe partycje na osobnych liniach, a także linię końcową z oryginalnym wejściem.

\d+
$*

Konwertuj każdy numer w każdej partycji na unarny.

(1*),\1

Usuń maksymalną i równą liczbę 1s z obu części każdej partycji (tj. Usuń minimum i odejmij od maksimum, co daje absolutną różnicę).

Om`^.*

Sortuj linie.

\G1

Policz 1s w pierwszym wierszu, co daje minimalną różnicę bezwzględną.

J , 32, 27 23 bajtów

-5 bajtów dzięki FrownyFrog! -4 bajty, jeśli wejście jest ciągiem.

[:<./}:@(".\)|@-1}.".\.

Wypróbuj online!

Oryginał: Pobiera liczbę jako dane wejściowe

(".\(}:@[([:<./|@-)}.@])".\.)@":

Jak to działa:

                             @": - convert the number to list of chars and
(".\                    ".\.)    - form all prefixes/suffixes and convert them to numbers
    (}:@[          }.@])         - drop the last prefix / first suffix
         (     |@-)              - find the absolute differences
          [:<./                  - find the minimum

Wypróbuj online!

JavaScript (ES6), 64 bajty

Pobiera dane wejściowe jako ciąg.

f=([c,...s],l=0)=>c?Math.min(Math.abs((l+=c)-s.join``),f(s,l)):l

Przypadki testowe

f=([c,...s],l=0)=>c?Math.min(Math.abs((l+=c)-s.join``),f(s,l)):l

console.log(f("10"     )) // -> 1
console.log(f("11"     )) // -> 0
console.log(f("12"     )) // -> 1
console.log(f("13"     )) // -> 2
console.log(f("101"    )) // -> 0
console.log(f("128"    )) // -> 4
console.log(f("313"    )) // -> 10
console.log(f("1003"   )) // -> 2
console.log(f("7129"   )) // -> 42
console.log(f("81128"  )) // -> 47
console.log(f("999999" )) // -> 0
console.log(f("9999999")) // -> 9000

Skomentował

f = ([c, ...s],           // c = current character, s = array of remaining characters
                l = 0) => // l = left part of the integer, initialized to 0 (see footnote)
  c ?                     // if c is defined:
    Math.min(             //   return the minimum of:
      Math.abs(           //     1) the absolute value of:
        (l += c) -        //       the updated left part
        s.join``          //       minus the right part
      ),                  //     end of Math.abs()
      f(s, l)             //     2) the result of a recursive call
    )                     //   end of Math.min()
  :                       // else:
    l                     //   stop the recursion by returning l (now equal to the input)

Nierekurencyjne (ES7), 65 bajtów

Pobiera dane wejściowe jako ciąg.

s=>Math.min(...[...s].map(c=>((l+=c)-s.slice(++i))**2,i=l=0))**.5

Przypadki testowe

let f =

s=>Math.min(...[...s].map(c=>((l+=c)-s.slice(++i))**2,i=l=0))**.5

console.log(f("10"     )) // -> 1
console.log(f("11"     )) // -> 0
console.log(f("12"     )) // -> 1
console.log(f("13"     )) // -> 2
console.log(f("101"    )) // -> 0
console.log(f("128"    )) // -> 4
console.log(f("313"    )) // -> 10
console.log(f("1003"   )) // -> 2
console.log(f("7129"   )) // -> 42
console.log(f("81128"  )) // -> 47
console.log(f("999999" )) // -> 0
console.log(f("9999999")) // -> 9000

Skomentował

s =>                            // given s
  Math.min(...                  // get the minimum value in the result of this map():
    [...s].map(c =>             //   for each character c in s:
      ((l += c)                 //     append c to l (the left part)
                - s.slice(++i)) //     and subtract the right part from it
      ** 2,                     //     square the result
      i =                       //     start with i = 0 (split position)
      l = 0                     //     and l = 0 (left part, see footnote)
    )                           //   end of map()
  )                             // end of Math.min()
  ** .5                         // return the square root of the smallest square

Uwaga : W obu wersjach ljest wymuszany na ciąg znaków przy pierwszej iteracji. Zwykle powinniśmy uważać na wiodące zera w literałach liczbowych: 0123 - 10 === 73ponieważ 0123jest on analizowany jako wartość ósemkowa (jest to obecnie przestarzałe, ale nadal obowiązuje w trybie nie ścisłym). Ale '0123' - '10' === 113wiodące zero jest tym razem ignorowane. Brzmi to rozsądnie.

Ze specyfikacji operacji abstrakcyjnej ToNumberzastosowanej do łańcucha:

StringNumericLiteral, który jest dziesiętny, może mieć dowolną liczbę początkowych 0 cyfr

APL (Dyalog) , 27 bajtów

{⌊/|-/⍎¨↑⊂∘⍵¨↓1,∘.=⍨⍳¯1+≢⍵}

Wypróbuj online!

W jaki sposób?

¯1+≢⍵- długość nminus 1

∘.=⍨⍳ - macierz jednostkowa

      1,∘.=⍨⍳3
1 1 0 0
1 0 1 0
1 0 0 1

1,- prepend 1dla każdego wiersza

↓ - podzielone na rzędy

⊂∘⍵¨ - dla każdego podziel ciąg według niego

      1 0 1 0 ⊂ '7129'
┌──┬──┐
│71│29│
└──┴──┘

↑ - spłaszczyć

-/ - zmniejszaj każdą parę odejmując

| - przyjąć wartości bezwzględne

⌊/ - minimum

APL (Dyalog) , 35 bajtów

{⌊/|-/⍎¨(⊂∘⍵⍤1)1,∘.=⍨⍳¯1+≢⍵}

Wypróbuj online!

Galaretka , 11 bajtów

ŒṖṖLÐṂḌạ/€Ṃ

Wypróbuj online!

-3 bajty dzięki dylnan

Jak to działa

ŒṖṖLÐṂḌạ/€Ṃ - Main link. Argument: n (integer)    e.g    7129
ŒṖ          - Partitions of n's digits;                  [[7, 1, 2, 9], [7, 1, [2, 9]], [7, [1, 2], 9], [7, [1, 2, 9]], [[7, 1], 2, 9], [[7, 1], [2, 9]], [[7, 1, 2], 9], [7, 1, 2, 9]]
  Ṗ         - Remove the final element                   [[7, 1, 2, 9], [7, 1, [2, 9]], [7, [1, 2], 9], [7, [1, 2, 9]], [[7, 1], 2, 9], [[7, 1], [2, 9]], [[7, 1, 2], 9]]
    ÐṂ      - Keep the lists with the minimum...         [[7, [1, 2, 9]], [[7, 1], [2, 9]], [[7, 1, 2], 9]]
   L        -   length
      Ḍ     - From digits                                [[7, 129], [71, 29], [712, 9]]
        /   - Reduce...
         €  - ...each...
       ạ    - ...by absolute difference                  [122, 42, 703]
          Ṃ - Take the minimum                           42

Python 2 , 58 bajtów

lambda n:min(abs(n%10**i-n/10**i)for i in range(len(`n`)))

Wypróbuj online!

Pyth , 15 bajtów

hSmaFvMdfqlT2./

Wypróbuj online!

MATL , 15 bajtów

"GX@:&)UwU-|vX<

Dane wejściowe to ciąg znaków reprezentujący liczbę całkowitą.

Wypróbuj online! Lub sprawdź wszystkie przypadki testowe .

Wyjaśnienie

"         % Implicit input. Do the following as many times as input length
  G       %   Push input
  X@      %   Push iteration index (1-based), k
  :       %   Range: gives [1 2 ... k]
  &)      %   Two-ouput reference indexing: gives a substring with the first
          %   k characters in the input and then a substring with the rest
  U       %   Convert to number
  wU      %   Swap, convert to number
  -|      %   Absolute difference
  v       %   Vertically concatenate stack. This concatenates the obtained
          %   absolute difference with the minimum so far; does nothing in 
          %   the first iteration
  X<      %   Minimum of array
          % Implicit end. Implicit display

Wolfram Language (Mathematica) , 66 bajtów

Min@Abs[#-#2&@@FromDigits/@#&/@ReplaceList[#,{a__,b__}:>{a}|{b}]]&

Pobiera listę cyfr.

Wypróbuj online!

Czysty , 106 83 bajtów

import StdEnv
@n#f=toInt o(%)n
=hd(sort[abs(f(0,i)-f(i+1,size n))\\i<-[0..size n]])

Definiuje funkcję @, biorąc ciąg.

Przeważnie oczywistym, jedynym trudnym bitem jest f=toInt o(%)n: bierze toIntklasę funkcji i tworzy ją ( o) z klasą operatora wycinanego curry ( %) już dostarczoną z pierwszym argumentem ( n). Ponieważ istnieje tylko jeden typ ( Stringrównoważny {#Char}), który ma przeciążenia dla obu %i toIntlinia faktycznie się kompiluje, podczas gdy normalnie trudno jest komponować funkcje podczas gry w golfa z powodu braku informacji kontekstowych przekazywanych kompilatorowi.

Wypróbuj online!

Galaretka , 12 bajtów

JṬ€œṗ€⁸Ḍạ/€Ṃ

Monadyczny link pobierający listę cyfr i zwracający liczbę całkowitą.

Wypróbuj online!

W jaki sposób?

JṬ€œṗ€⁸Ḍạ/€Ṃ - Link: list of digits     e.g. [7,1,2,9]
J            - range of length               [1,2,3,4]
 Ṭ€          - untruth €ach                  [[1],[0,1],[0,0,1],[0,0,0,1]]
      ⁸      - chain's left argument         [7,1,2,9]
   œṗ€       - partition at truthy for €ach  [[[],[7,1,2,9]],[7,[1,2,9]],[[7,1],[2,9]],[[7,1,2],9]]
       Ḍ     - undecimal (vectorises)        [[0,7129],[7,129],[71,29],[712,9]]
         /€  - reduce €ach by:
        ạ    - absolute difference           [7129,122,42,703]
           Ṃ - minimum                       42

Pyth, 10 bajtów

hSaMv<./Ql

Zestaw testowy

Pobiera dane wejściowe jako ciąg.

Wykorzystuje jedną z nowszych funkcji Pytha, a mianowicie zastosowanie funkcji do listy domyślnie do mapowania funkcji na liście, jeśli nie zdefiniowano żadnego innego zachowania. Oznacza to, że vzastosowane do listy list ciągów ocenia wszystkie ciągi.

hSaMv<./Ql
hSaMv<./QlQ    Implicit variable
      ./Q      Form all partitions of the input string.
               Split it in all possible ways, maintaining the order.
               Partitions are ordered from shortest to longest.
     <   lQ    Take the prefix as long as the input string.
               This keeps just the splits into one and two pieces.
    v          Evaluate. All strings are converted to numbers.
  aM           Map the absolute difference function.
hS             Minimum

Zauważ, że lista podziałów pozwala na podział na 1 sztukę, ale wartość tego zawsze będzie większa niż minimum, więc jest bezpiecznie ignorowana.

Tcl , 116 bajtów

foreach d [split [set b [set R $argv]] {}] {append L $d
regexp .(.+) $R - R
set b [expr min($b,abs($L-$R))]}
puts $b

Wypróbuj online!

Wyjaśnienie

b ← R ← input number
for each digit (d) in the input number:
  L += d
  strip first digit off of R using a regular expression
  b ← min( b, distance between L and R )
print b

Działa przy użyciu sztuczki wyrażenia regularnego, pozwalając na zdegenerowany końcowy przypadek, który zawsze będzie obliczany na wartość większą niż minimalna różnica. Dla „12345” wartości są następujące:

1 2345 → 2344
12 345 → 333
123 45 → 78
1234 5 → 1229
12345 5 → 12340 (degenerate case)

Rubinowy , 44 bajty

->a{((w=1)..a).map{((a%w*=10)-a/w).abs}.min}

Wypróbuj online!

APL + WIN, 31 bajtów

⌊/|(⍎¨m↓¨⊂n)-⍎¨(m←⍳¯1+⍴n)↑¨⊂n←⎕

Monituje o wpisanie na ekranie liczby całkowitej jako ciągu.

Wyjaśnienie:

m←⍳¯1+⍴n Create a list of numbers from 1 to length of string - 1

↑¨⊂n←⎕ Using m create a nested vector taking successively characters from the front of the string defined by m

⍎¨ Convert from character to integer

(⍎¨m↓¨⊂n) Using m create a nested vector dropping successively characters from the front of the string defined by m 

⌊/| take the minimum absolute value after subtracting the two vectors of integers

Perl 5 , 51 41 + 1 ( -p) = 42 bajty

$\=$_;$\=$\>($"=abs$'-$`)?$":$\while//g}{

Wypróbuj online!

zainspirowany komentarzem @ Nahuel-Fouilleul

C # (.NET Core) , 112 107 + 18 = 125 bajtów

n=>Enumerable.Range(1,n.Length-1).Min(i=>System.Math.Abs(int.Parse(n.Remove(i))-int.Parse(n.Substring(i))))

Wypróbuj online!

Liczba obejmuje 18 bajtów w using System.Linq;. Pobiera dane wejściowe jako string.

• 5 bajtów zapisanych przez Caiusa Jarda!

Common Lisp, 131 bajtów

Pierwszy raz brałem udział w Code Golf i postanowiłem skorzystać z Lisp, ponieważ lubię to.

Oto moje rozwiązanie:

(defun f (s) (loop for i from 1 below (length s) minimizing (abs (- (parse-integer (subseq s 0 i)) (parse-integer (subseq s i))))))

Dane wejściowe muszą być ciągiem, a nie liczbą całkowitą lub listą.