Generuj leniwe wartości

25

Powiązane: Zaprogramuj moją kuchenkę mikrofalową . Zainspirowany przez Generuj leniwe wejście mikrofalowe .

Leniwa wartość nieujemnej liczby całkowitej N jest najmniejszą z liczb całkowitych najbliższych N, podczas gdy wszystkie ich cyfry są identyczne.

Powrót (jakikolwiek sposób) lazy wartość danej (bez względu) N .

Ndomyślnie największa liczba całkowita, którą Twój język reprezentuje w postaci nie-wykładniczej. 1000000 (Wiele interesujących rozwiązań zostało utraconych z powodu tego zbyt wysokiego wymagania).

Przypadki testowe:

   0 →    0
   8 →    8
   9 →    9
  10 →    9
  16 →   11
  17 →   22
  27 →   22
  28 →   33
 100 →   99
 105 →   99
 106 →  111
 610 →  555
 611 →  666
7221 → 6666
7222 → 7777 

Kolega, o którym mowa, udowodnił, że nie będzie żadnych powiązań: z wyjątkiem 11 września, 99/111 itd., Dla których jedna jest krótsza od drugiej, dwie kolejne prawidłowe odpowiedzi są zawsze nieparzyste, więc żadna liczba całkowita nie może być dokładnie w równej odległości od nich.

Adám
źródło

Odpowiedzi:

15

JavaScript (ES6), 31 bajtów

n=>~-(n*9+4).toPrecision(1)/9|0

Bezpośrednio oblicza leniwą wartość dla każdego n .

Edycja: Działa tylko do 277777778 z powodu ograniczeń typu liczb całkowitych JavaScript. Alternatywne wersje:

n=>((n*9+4).toPrecision(1)-1)/9>>>0

35 bajtów, działa do 16666666667.

n=>((n=(n*9+4).toPrecision(1))-n[0])/9

38 bajtów, działa do 944444444444443. Ale to wciąż trochę mniej niż 2 53, czyli 9007199254740992.

Neil
źródło
@ user81655 Dodałem kilka alternatywnych wersji z ich ograniczeniami liczbowymi.
Neil
1
Nie mogłem zmusić tego algorytmu do pracy Number.MAX_SAFE_INTEGER, ponieważ 8e16 - 1jest wyrażony jako 8e16. Niestety wygląda na to, że jedynym sposobem byłoby zakodowanie maksymalnego wyniku. Niemniej jednak +1.
user81655
@ user81655 Obniżyłem górną granicę, aby umożliwić rozwiązanie.
Adám
Dostałem cię do 10k @ Neil, kochaj golfa!
NiCk Newman
1
@NiCkNewman Woohoo! Dzięki!
Neil
5

Galaretka, 16 bajtów

ḤRµDIASµÐḟµạ³ỤḢị

Wypróbuj online!

Jak to działa

ḤRµDIASµÐḟµạ³ỤḢị  Main link. Input: n

Ḥ                 Compute 2n.
 R                Yield [1, ..., 2n] or [0].
  µ               Begin a new, monadic chain. Argument: R (range)
   D              Convert to base 10.
    I             Compute all differences of consecutive decimal digits.
     A            Take the absolute values of the differences.
      S           Sum the absolute values.
       µÐḟ        Filter-false by the chain to the left.
          µ       Begin a new, monadic chain. Argument: L (lazy integers)
           ạ³     Take the absolute difference of each lazy integer and n (input).
             Ụ    Grade up; sort the indices of L by the absolute differences.
                  This is stable, so ties are broken by earlier occurrence and,
                  therefore, lower value.
              Ḣ   Head; retrieve the first index, corresponding to the lowest
                  absolute difference.
               ị  Retrieve the item of L at that index.
Dennis
źródło
4

Oracle SQL 11.2, 200 bajtów

WITH v(i)AS(SELECT 0 FROM DUAL UNION ALL SELECT DECODE(SIGN(i),0,-1,-1,-i,-i-1)FROM v WHERE LENGTH(REGEXP_REPLACE(:1+i,'([0-9])\1+','\1'))>1)SELECT:1+MIN(i)KEEP(DENSE_RANK LAST ORDER BY rownum)FROM v;

Nie grał w golfa

WITH v(i) AS
(
  SELECT 0 FROM DUAL      -- Starts with 0
  UNION ALL
  SELECT DECODE(SIGN(i),0,-1,-1,-i,-i-1) -- Increments i, alternating between negatives and positives
  FROM   v 
  WHERE  LENGTH(REGEXP_REPLACE(:1+i,'([0-9])\1+','\1'))>1  -- Stop when the numbers is composed of only one digit
)
SELECT :1+MIN(i)KEEP(DENSE_RANK LAST ORDER BY rownum) FROM v;
Jeto
źródło
3

Pyth - 26 bajtów

Ta odpowiedź nie zawsze zwraca najmniejszą wartość w remisie, ale nie ma tego w specyfikacjach, więc oczekiwanie na wyjaśnienie naprawione na 3 bajty.

hSh.g.a-kQsmsM*RdjkUTtBl`Q

Pakiet testowy .

Maltysen
źródło
3

Pyth, 16 bajtów

haDQsM*M*`MTSl`Q

Wypróbuj online: pakiet demonstracyjny lub testowy

Wyjaśnienie:

haDQsM*M*`MTSl`Q   implicit: Q = input number
              `Q   convert Q to a string
             l     take the length
            S      create the list [1, 2, ..., len(str(Q))]
         `MT       create the list ["0", "1", "2", "3", ..., "9"]
        *          create every combination of these two lists:
                   [[1, "0"], [1, "1"], [1, "2"], ..., [len(str(Q)), "9"]]
      *M           repeat the second char of each pair according to the number:
                   ["0", "1", "2", ..., "9...9"]
    sM             convert each string to a number [0, 1, 2, ..., 9...9]
  D                order these numbers by:
 a Q                  their absolute difference with Q
h                  print the first one
Jakube
źródło
3

MATL , 25 bajtów

2*:"@Vt!=?@]]N$vtG-|4#X<)

Używa brutalnej siły, więc w przypadku dużej liczby może to chwilę potrwać.

Wypróbuj online!

2*:       % range [1,2,...,2*N], where is input
"         % for each number in that range
  @V      %   push that number, convert to string
  t!=     %   test all pair-wise combinations of digits for equality
  ?       %   if they are all equal
    @     %     push number: it's a valid candidate
  ]       %   end if
]         % end for each
N$v       % column array of all stack contents, that is, all candidate numbers
t         % duplicate
G-|       % absolute difference of each candidate with respect to input
4#X<      % arg min
)         % index into candidate array to obtain the minimizer. Implicitly display
Luis Mendo
źródło
3

Perl, 32

Oparty na pięknym rozwiązaniu JavaScript autorstwa Neila.

$_=0|1/9*~-sprintf"%.e",$_*9+4.1

Zaczyna się zawodzić o 5e15

Ton Hospel
źródło
2

Mathematica, 122 bajty

f@x_:=Last@Sort[Flatten@Table[y*z,{y,1,9},{z,{FromDigits@Table[1,10~Log~x+1-Log[10,1055555]~Mod~1]}}],Abs[x-#]>Abs[x-#2]&]

Funkcja o nazwie x.

CalculatorFeline
źródło
2

JavaScript (ES6), 59 bajtów

n=>eval(`for(i=a=0;i<=n;a=i%10?a:++i)p=i,i+=a;n-p>i-n?i:p`)

Rozwiązanie rekurencyjne (56 bajtów)

Jest to nieco krótsze, ale nie działa, n > 1111111110ponieważ został przekroczony maksymalny rozmiar stosu wywołań, więc jest technicznie nieprawidłowy.

f=(n,p,a,i=0)=>n<i?n-p>i-n?i:p:f(n,i,(i-=~a)%10?a:i++,i)

Wyjaśnienie

Iteruje przez każdą leniwą liczbę, aż dojdzie do pierwszej, która jest większa niż n, a następnie porównuje nz tą i poprzednią liczbą, aby ustalić wynik.

var solution =

n=>
  eval(`           // eval enables for loop without {} or return
    for(
      i=a=0;       // initialise i and a to 0
      i<=n;        // loop until i > n, '<=' saves having to declare p above
      a=i%10?a:++i // a = amount to increment i each iteration, if i % 10 == 0 (eg.
    )              //     99 + 11 = 110), increment i and set a to i (both become 111)
      p=i,         // set p before incrementing i
      i+=a;        // add the increment amount to i
    n-p>i-n?i:p    // return the closer value of i or p
  `)
N = <input type="number" oninput="R.textContent=solution(+this.value)"><pre id="R"></pre>

użytkownik 81655
źródło
Obniżyłem górną granicę, aby umożliwić rozwiązanie.
Adám
2

Japt , 18 bajtów

9*U+4 rApUs l¹/9|0

Wypróbuj online!

Na podstawie techniki Neila

Niekonkurencyjne rozwiązanie :

*9+4 h /9|0
Oliver
źródło
1
A teraz możesz zrobić *9+4 h /9|0:-)
ETHproductions
@ETHproductions Dzięki! Świetnie się bawię z Japt :)
Oliver
1

05AB1E , 20 bajtów

9Ývy7L×})˜ïD¹-ÄWQÏ{¬

Wypróbuj online!

9Ý                   # Push 0..9
  vy7L×})˜           # For each digit, 0-9, push 1-7 copies of that number.
          ïD         # Convert to integers, dupe the list.
            ¹        # Push original input (n).
             -Ä      # Push absolute differences.
               WQ    # Get min, push 1 for min indices.
                 Ï{¬ # Push indices from original array that are the min, sort, take first.
Urna Magicznej Ośmiornicy
źródło
99 jest z pewnością bardziej leniwy niż 111, ponieważ wymaga tylko dwóch naciśnięć przycisków.
Adám
@ Adám wystarczy, dodano polecenie head.
Magic Octopus Urn
1

Mathematica, 56 bajtów

Min@Nearest[##&@@@Table[d(10^n-1)/9,{n,0,6},{d,0,9}],#]&

Czysta funkcja z pierwszym argumentem # , działa dla danych wejściowych do10^6 .

Dla nieujemną liczbę całkowitą n, a cyfry d, 10^n-1 = 99...9( 9powtórzone ntrzykrotnie), SO d(10^n-1)/9 = dd...d( dpowtórzone ntrzykrotnie). Tworzy Tablewartość 0 <= n <= 6a 0 <= d <= 9, a następnie spłaszcza tabelę, znajduje listę elementówNearest do #i bierzeMin .

Wierzę, że ta wersja będzie działać na dowolnie duże liczby całkowite:

Min@Nearest[##&@@@Table[d(10^n-1)/9,{n,0,IntegerLength@#},{d,0,9}],#]&
ngenisis
źródło