Создайте программу, которая печатает все целые числа включительно между интервалами (a, b)и заменяет кратные 8 в последовательности случайными (равномерно распределенными, независимыми от других символов), нечисловыми, непробельными, печатными символами ASCII.

Предположим, что 0 <a <b во всех случаях.

Если номер имеет более 1 цифры, убедитесь, что количество символов в замене совпадает!

Примеры:

(1, 16) -> 1 2 3 4 5 6 7 $ 9 10 11 12 13 14 15 n@

(115, 123) -> 115, 116, 117, 118, 119, :F<, 121, 122, 123

(1, 3) -> 1 2 3

Non-Примеры:

(1, 16) -> 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

(115, 123) -> 115 116 117 118 119 $ 121 122 123

Это код гольф, поэтому выигрывает самый короткий код в байтах!

Текущий победитель:

Пайк (21 байт) от мутной рыбы

Самый популярный:

Python 2 (119 байт) от Дениса

Пайк, 22 21 байт

h1:Fi8%!I`lV~Kl7T>Hs0

Попробуй это здесь!

Принимает входной сигнал в виде: higher,lower

h1:                   -  range(lower, higher+1, 1)
   F                  - for i in ^:
    i8%               -    i % 8 
       !              -   not ^
        I             -  if ^:
         `l           -    len(str(i))
           V          -   repeat V ^ times
            ~K        -        printable_ascii
              l7      -       ^.strip()
                T>    -      ^[10:]
                  H   -     random.choice(^)
                   s0 -    sum(^)

Python 2, 126 байт

Попробуйте онлайн!

import random,string
def f(a,b):
 while b/a:print[a,eval('random.choice(string.printable[10:-6])+'*len(`a`)+"''")][a%8<1];a+=1

Большое спасибо Flp.Tkc и EasterlyIrk за их помощь!

Python 2 , 119 байт

import random,string
def f(a,b):print`[random.choice(string.printable[10:95])for _ in`a`]`[2+a%8*b::5]or a;a<b<f(a+1,b)

Попробуйте онлайн!

зш, 100 98 байт

for i in {$1..$2};{((i%8))&&<<<$i||<<<`yes 'shuf -e {!..~}|grep "[^0-9]"|head -c1'|head -$#i|zsh`}

Два входных аргумента передаются как аргументы командной строки, а числа выводятся в отдельных строках.

for i in {$1..$2};{   # loop through the range
((i%8))&&             # if the number is not divisible by 8 (i % 8 != 0),
<<<$i||               # output it
<<<`                  # otherwise, output the following:
yes '                 # using `yes' as a golfy loop
shuf -e {\!..\~}      # shuffle the range of printable ASCII (minus space)
|grep "[^0-9]"        # get rid of numbers
|head -c1'            # take the first character
|head -$#i            # obtain a string with that code repeated len(i) times... 
|zsh                  # ... and eval it
`}

Mathematica, 96 байт

Range@##/.a_?(8∣#&):>Join[33~(c=CharacterRange)~47,58~c~127]~RandomChoice~⌊Log10@a+1⌋<>""&

объяснение

Для входов mи n:

Range@##

генерировать {m, m + 1, m + 2, ... , n}

/.a_?(8∣#&):>

Для всех чисел, которые делятся на 8 (назовите это a), примените это правило замены:

Join[33~(c=CharacterRange)~47,58~c~127]

Получить список всех печатных символов ASCII, кроме цифр.

... ~RandomChoice~⌊Log10@a+1⌋

Псевдослучайно выбирает Floor[Log10[a] + 1]символы из списка, допуская дублирование.

<>""

Присоединяйтесь к персонажам.

R, 73 байта

i=scan();x=i[1]:i[2];x[!x%%8]=sample(sapply(c(32:46,58:126),intToUtf8));x

Считывает ввод из stdin и заменяет заменяемые числа на 8равномерно выбранную выборку символов ascii в диапазоне 32...47, 58...126. Чтобы нарисовать случайную выборку, нам нужен вектор символов, к сожалению, intToUtf8()возвращает одну строку, а не вектор, поэтому мы также должны векторизовать ее по диапазону, используя sapply.

Python 2, 126 байт

(Деннис просто не обгоняет)

Поскольку я много работал над ответом Хизер, я подумал, что я тоже опубликую свои собственные решения.

import random,string
def f(a,b):
 while b/a:print[a,eval('random.choice(string.printable[10:-6])+'*len(`a`)+"''")][a%8<1];a+=1

Это функция, которая принимает два аргумента и печатает напрямую STDOUT.

127 байт

import random,string
lambda a,b:[[x,eval('random.choice(string.printable[10:-6])+'*len(`x`)+`''`)][x%8<1]for x in range(a,b+1)]

Это безымянная анонимная функция - использовать, присваивать переменной (например, f), а затем вызывать с помощью f(a, b). Это возвращает вывод в виде списка.

Пип , 28 байт

Fia,b+1Pi%8?i{RC@>PA@`\D`}Mi

Принимает числа в качестве аргументов командной строки и выводит разделенный на новую строку список результатов. Попробуйте онлайн!

Объяснение:

                              a,b are cmdline args; PA is string of all printable ASCII
Fia,b+1                       For i in range(a, b+1):
       P                       Print this:
        i%8?i                  If i%8 is truthy (nonzero), i; otherwise:
             {           }Mi   Map this function to the digits of i:
                @>PA           All but the first character of PA (removes space)
                    @`\D`      Find all regex matches of \D (nondigits)
              RC               Random choice from that list of characters
                               The map operation returns a list, which is concatenated
                               before printing

JavaScript (ES6), 114 байт

f=(x,y)=>(x+"").replace(/./g,d=>x%8?d:String.fromCharCode((q=Math.random()*84)+(q>15?43:33)))+(x<y?[,f(x+1,y)]:"")

O.textContent = f(1,200)

<pre id=O>

Эти чертовы встроенные 23-байтовые имена ....

MATL , 26 байт

&:"@8\?@}6Y24Y2X-Xz@VnT&Zr

Попробуйте онлайн!

объяснение

&:        % Input a and b (implicit). Push range [a a+1 ... b]
"         % For each k in that range
  @       %   Push k
  8\      %   Modulo 8
  ?       %   If non-zero
    @     %     Push k
  }       %   Else
    6Y2   %     Push string of all printable ASCII chars
    4Y2   %     Push string '0123456789'
    X-    %     Set difference
    Xz    %     Remove space. Gives string of possible random chars
    @Vn   %     Push number of digits of k
    T&Zr  %     Random sample with replacement of that many chars from the string
          % End if, end for each, display (implicit)

Pyth , 24 байта

jm?%d8dsmO-r\~\ jkUT`d}F

Попробуйте онлайн!

Объяснение:

jm?%d8dsmO-r\~\ jkUT`d}FQ  # Auto-fill variables
                      }FQ  # Splat inclusive range on the input
 m?%d8d                    # Map over each number, if it isn't divisible by 8 return it
       smO          `d     # for each other number, select a character at random for
                             each of it's digits and then flatten into one string
           r\~\            # Printable ASCII excluding space
          -     jkUT       # Setwise difference with numeric values (remove numbers)
j                          # Join with newlines

Баш + apg ,6476 байт

правок:

• Исправлена ​​проблема «8 8», исключая числовые символы из набора случайных символов, +12 байт

Golfed

seq $1 $2|sed "$[(7&(8-$1%8))+1]~8s/.*/a=&;apg -a1 -n1 -Mcsl -m\${#a} -x0/e"

Тест

>./crazy8 8 8
$

>./crazy8 115 123
115
116
117
118
119
As_
121
122
123

>./crazy8 1 16
1
2
3
4
5
6
7
"
9
10
11
12
13
14
15
x!

Perl 6 , 60 байт

{map {$_%8??$_!!S:g/./{grep(/\D/,"!".."~").pick}/},$^a..$^b}

Объяснение:

• { map { }, $^a .. $^b }: Лямбда, которая принимает два аргумента, генерирует список целых чисел в этом диапазоне и возвращает его со следующим преобразованием, примененным к каждому элементу:
• $_ % 8 ?? $_ !!: Если элемент не делится на 8, передайте его без изменений. Иначе...
• S:g/./{ }/: ... заменить каждый символ его строкового представления значением, сгенерированным этим выражением:
• grep(/\D/, "!" .. "~").pick: Создать диапазон символов между !и ~(в порядке Юникода), отфильтровать цифры и случайным образом выбрать один из оставшихся символов.

PHP, 163 байта

$n=range(48,57);$c=array_diff(range(32,126),$n);
foreach(range($a,$b) as $v){if($v%8!=0){echo $v;}
else{for($i=0;$i<strlen($v);$i++){echo chr($c[array_rand($c)]);}}}

Объяснение:

• $n = range(48,57) Это коды ASCII для чисел, которые находятся в середине специальных символов (32-47) и других символов (58-126).
• $c = array_diff(range(32,126), $n)Используя $nмассив, исключите числовые символы и создайте массив приемлемых символов ASCII.
• foreach(range($a,$b) as $v)Цикл по диапазону значений от $aдо $b(включительно), как $ v внутри цикла.
• if($v % 8 != 0) { echo $v; }Проверьте, что $ v делится на 8 равномерно, используя оператор мода %.
• else { for($i = 0; $i < strlen($v); $i++) { ... }} Если неравномерно не делится на 8, зациклите достаточное количество раз для количества цифр в числе и напечатайте символы (на следующем шаге).
• echo chr($c[array_rand($c)])Выведите один символ из допустимого массива значений ASCII в $c. array_randвозвращает индекс в массиве, поэтому мы должны получить фактическое значение по этому индексу, используя $c[random_key].

Я мог бы, вероятно, сделать это меньше, создавая по- $cдругому, и цикл печати символов ASCII кажется неуклюжим, поэтому я продолжу размышлять, как сократить это.

postgresql9,6 251 символов

очень длинный код, но Postgresql также делает это.

do language plpgsql $$ begin for n in a..bloop raise info'%',case when 0=n%8then(select array_to_string(array(select*from(select chr(generate_series(33,126)))t where chr!~'\d'order by random()limit floor(log(n))+1),''))else n::text end;end loop;end;$$

отформатированный sql здесь:

do language plpgsql $$
begin
for n in a..b loop
    raise info '%',
    case when 0 = n % 8 then (
        select array_to_string(array(select * from (
            select chr(generate_series(33, 126))
        ) t where chr !~ '\d' order by random() limit floor(log(n)) + 1), '')
    ) else n::text
    end;
end loop;
end;
$$

Perl, 66 байт

map{$_%8||s%.%do{$_=chr rand 126}until/[!-\/:-~]/;$_%ge;say}<>..<>

Запустить с -Eфлагом:

perl -E 'map{$_%8||s%.%do{$_=chr rand 126}until/[!-\/:-~]/;$_%ge;say}<>..<>' <<< "8
16"

Это довольно просто:
- <>..<>создает список чисел между двумя входными числами. И затем mapперебирает его:
- $_%8||...: ...выполняются, только если $_кратно 8.
- s%.%xxx%ge: заменить каждый символ на xxx.
- do{$_=chr rand 126}until/[!-\/:-~]/выбрать случайный символ (от кодов 0 до 126), пока мы не получим тот, который удовлетворяет /[!-\/:-~]/, т.е. тот, который печатается и не является цифрой.
- say: распечатай.

C (gcc) , 129 119 байтов

s(a,r){a&&s(!isdigit(r=rand()%94+33)?putchar(r),a/10:a,0);}f(a,b){b>a&&f(a,b-1);b%8?printf("%d",b):s(b,0);printf(" ");}

Попробуйте онлайн!

129 → 119 Используйте %94+33трюк от OOBalance

Ungolfed:

s(a,r){
    a&&                                  // Loop recursively on a!=0
    s(!isdigit(r=rand()%94+33)           // Test random selection
      ?putchar(r),a/10                   // Print and reduce a
      :a                                 // Retry random selection
      ,0);                               // Second arg, recurse
}
f(a,b){
    b>a&&                                // Loop recursively on b>a
    f(a,b-1);                            // Reduce b, recurse
    b%8?printf("%d",b)                   // Print non 8's
       :s(b,0);                          // Call s() for 8's
    printf(" ");                         // Space separator
}

C 157 115 байт

f(a,b){b-a&&f(a,b-1);if(b%8)printf("%d",b);else for(;b;b/=10){while(isdigit(a=rand()%94+33));putchar(a);}puts("");}

Попробуйте это онлайн здесь . Спасибо jxh за игру в гольф 42 байта.

Безголовая версия:

f(a, b) { // recursive function, parameters are implicitly int
    b-a && f(a, b-1); // recurse until a = b
    if(b % 8)            // if the number is a multiple of 8
        printf("%d", b); // simply print it
    else for(; b; b /= 10) { // while b > 0, lop off the last digit
        while(isdigit(a = rand() % 94 + 33)); // generate random characters in ASCII range [33, 127] until one is non-numeric
        putchar(a); // print the character
    }
    puts(""); // print a newline
}

Java 10, 149 147 байт (лямбда-функция)

b->a->{var r="";for(;a<=b;r+=" ",a++)for(var c:(a+"").split("")){char t=0;for(;t<33|t>126|t>47&t<59;t*=Math.random())t=127;r+=a%8<1?t:c;}return r;}

Попробуйте онлайн.

Java 10, 227 225 байт (полная программа)

interface M{static void main(String[]A){var r="";for(var a=new Long(A[0]);a<=new Long(A[1]);r+=" ",a++)for(var c:(a+"").split("")){char t=0;for(;t<33|t>126|t>47&t<59;t*=Math.random())t=127;r+=a%8<1?t:c;}System.out.print(r);}}

Попробуйте онлайн.

Объяснение:

b->a->{          // Method with two integer parameters and String return-type
  var r="";      //  Result-String, starting empty
  for(;a<=b      //  Loop as long as `a` is smaller than or equal to `b`
      ;          //    After every iteration:
       r+=" ",   //     Append a space to the result-String
       a++)      //     And increase `a` by 1
    for(var c:(a+"").split("")){
                 //   Inner loop over the characters of the current number
      char t=0;  //    Random-char, starting at 0
      for(;t<33|t>126|t>47&t<59;
                 //    Loop until `t` is a non-digit printable ASCII char
          t*=Math.random())t=127;
                 //     Set `t` to a random character with a unicode in the range [0,127)
      r+=a%8<1?  //   If the current `a` is divisible by 8:
          t      //    Append the random character
         :       //   Else:
          c;}    //    Append the digit instead
  return r;}     //  Return the result

APL (Dyalog Extended) , 32 байта

{(?84¨⍕⍵)⊇⎕D~⍨'!'…'~'}¨@{0=8|⍵}…

Попробуйте онлайн!

Огромное спасибо Адаму и Дзайме за помощь. Впервые с помощью Dyalog Extended!

Объяснение:

{(?84¨⍕⍵)⊇⎕D~⍨'!'…'~'}¨@{0=8|⍵}…  ⍝ Dyadic 2-train

                               …  ⍝ Tacit range: list of numbers from left arg 
                                  ⍝ to right arg inclusive
{(?84¨⍕⍵)⊇⎕D~⍨'!'…'~'}¨@{0=8|⍵}   ⍝ Monadic function applied to above          
                        {     }   ⍝ Function definition
                           8|⍵    ⍝ 8 modulo every item in our range
                         0=       ⍝ Transform list into a boolean vector, with
                                  ⍝ 1 where item was equal to zero, 0 otherwise
                      ¨@          ⍝ Applies left function to each item selected
                                  ⍝ by above
{                    }            ⍝ Function definition
              '!'…'~'             ⍝ Range of all printable ASCII chars
          ⎕D~⍨                    ⍝ Remove numeric characters from above
 (    ⍕⍵)                         ⍝ Convert function argument to string
                                  ⍝ (e.g., 123 -> "123")
   84¨                            ⍝ For each character, replace with number 84
                                  ⍝ (number of non-numeric printable ASCII chars)
  ?                               ⍝ Generate random number from 1-84 for each
                                  ⍝ 84 in list
         ⊇                        ⍝ Index the ASCII char list with above random
                                  ⍝ numbers

Скала , 198 байт

Улучшенная функциональная версия с неизменным состоянием (03-04-2018)

  def S(a: Int, b: Int)={
    val c=(33 to 47)++(58 to 126)
    val r = (a to b).toStream.map {case x if x%8==0=>c(Random.nextInt(c.length)).toChar.toString
      case x => String.valueOf(x)}
    r}

Попробуйте онлайн!

Функциональное стилевое решение в Scala (350 байт) для удовольствия.

def r(a:Int, b:Int)={
    var l=(33 to 47).toList:::(58 to 126).toList
    l=Random.shuffle(l)
    var x=ListBuffer[String]()
    var k=0
    (a to b).toList.foreach{e=>{
         if(k==l.length){k=0
         l=Random.shuffle(l)}
         if (e.toInt%8==0){x+=l(k).toChar.toString
           k+=1}
         else{x+=e.toString
             k+=1}}}
    x}

Предложения по улучшению приветствуются.

Python 2, 180 байт

from random import*
def f(a,b):
 for i in range(a,b+1):
  if i%8<1:
   k,i=str(i),''
   for _ in k:i+=choice([chr(j)for j in range(33,48)]+[chr(j)for j in range(57,126)])
  print i

РЕДАКТИРОВАТЬ:

Спасибо @ Flp.Tkc за понимание, что я не прочитал задачу должным образом.

Спасибо @Caleb за указание, что я могу использовать несколько, чтобы уменьшить количество байтов.

Спасибо @Dennis за указание на то, что числа не могут быть включены.

РЕДАКТИРОВАТЬ 2:

Текущая версия, вероятно, может быть упрощена больше, чем она есть.

PowerShell , 82 89 байт

$a,$b=$args;$a..$b|%{($_,(-join[char[]](33..47+58..127|random -c "$_".Length)))[!($_%8)]}

Попробуйте онлайн!

QBIC , 79 байт

::[a,b|~c%8=0|[_l!c$||_R33,116|~e>47 and e<58|e=e+z]Z=Z+chr$(e)]\Z=Z+!c$]Z=Z+@ 

Пропуск чисел является дорогостоящим делом, вот версия, которая может также случайно выбрать 0-9на 20 байтов меньше:

::[a,b|~c%8=0|[len(!c$)|Z=Z+chr$(_r33,126|)]\Z=Z+!c$]Z=Z+@ 

Пример вывода для 1, 89

1 2 3 4 5 6 7 U 9 10 11 12 13 14 15 M9 17 18 19 20 21 22 23 ^L 25 26 27 28 29 30 
31 <U 33 34 35 36 37 38 39 gH 41 42 43 44 45 46 47 aJ 49 50 51 52 53 54 55 1b 57 58 59 60 
61 62 63 ,C 65 66 67 68 69 70 71 ]; 73 74 75 76 77 78 79 [B 81 82 83 84 85 86 87 Ix 89 

Объяснение:

::        Get inputs 'a' and 'b' from the command line
[a,b|     FOR(c=a; c<=b; c++)
~c%8=0|   IF c is cleanly divisible by 8 THEN
 _l!c$|   Take the length (_l) of the string representation (! ... $) of c 
[      |  FOR (d = 1; d<= length(c); d++)
_R33,116| Set e to a random value in the range 33 - 116 (all the printable ascii's - 10)
~e>47     IF e falls between 47
and e<58| and 58 (ASCII code for 0-9) THEN 
e=e+z     e = e + 10 (z == 10 in QBIC)
]         END IF
Z=Z+      Add to Z$
chr$(e)]  ASCII character e
\         ELSE if c is not cleanly divisible by 8
Z=Z+!c$   Add to Z the string representation of c
]         NEXT
Z=Z+@     Add a space to Z$ (@ is an implicitly delimited string literal with 1 significant space)

( Z$ is implicitly printed at end of program )

05AB1E , 17 байт

ŸεD8ÖižQžhK¦.rsg£

Принимает вход как highest\nlowest и выводит список.

Попробуйте онлайн или проверьте все контрольные примеры .

Объяснение:

Ÿ                  # Create a list in the range [low (implicit) input, high (implicit) input]
 ε                 # Map each value to:
  D                #  Duplicate the value
   8Öi             #  If it's divisible by 8:
      žQ           #   Push all printable ASCII characters (" " through "~")
        žhK        #   Remove all digits
           ¦       #   Remove the first character (the space)
            .r     #   Randomly shuffle the remaining characters
              s    #   Swap to take the map value again
               g   #   Get its length
                £  #   And leave that many characters from the string
                   # (and implicitly output the resulting list after we're done mapping)

Japt , 20 байт

;òV ®%8?Z:EÅk9ò)öZìl

Попытайся

;òV ®%8?Z:EÅk9ò)öZìl     :Implicit input of integers U & V
 òV                      :Range [U,V]
    ®                    :Map each Z
     %8                  :  Modulo 8
       ?Z:               :  If truthy, return Z, else
;         E              :  Printable ASCII
           Å             :  Slice off first character
            k            :  Remove
             9ò          :    Range [0,9]
               )         :  End remove
                 Zì      :  Digit array of Z
                   l     :  Length
               ö         :  Get that many random characters from the string

Forth (gforth) , 128 байтов

include random.fs
: f 1+ swap do i 8 mod if i . else i 0 <# #s #> 0 do 83 random 33 + dup 47 > 10 * - emit loop ."  "then loop ;

Попробуйте онлайн!

объяснение

Цикл от начала до конца, выведите число, если оно не кратно 8, в противном случае получите количество цифр в числе и напечатайте столько случайных символов, за которыми следует пробел

Код Объяснение

include random.fs          \ include/import the random module
: f                        \ start new word definition
  1+ swap                  \ add 1 to end number, because forth loops are [start, end), and swap order
  do                       \ start counted loop form start to end
    i 8 mod                \ get the remainder of dividing i (loop index) by 8
    if                     \ if true (not 0, therefore not multiple of 8)
      i .                  \ print the index
    else                   \ otherwise
      i 0                  \ convert index to double-length number
      <# #s #>             \ use formatted numeric output to convert number to a string
      0 do                 \ loop from 0 to (string-length - 1)
        84 random          \ get random number between 0 and 83
        33 +               \ add 33
        dup 47 >           \ check if result is larger than 47
        10 * -             \ if it is add 10 to result (results in number in range: 33-47,58-126)
        emit               \ output ascii char corresponding with number
      loop                 \ end inner loop
    ."  "then            \ output a space and then close the if/else
  loop                   \ end the outer loop
;                        \ end the word definition

UnGolfed

Я обычно не разгадываю свои решения, но этот достаточно длинный / сложный, так что я думаю, что он нужен

include random.fs

\ get the length (in digits) of a number
: num-length 0 <# #s #> nip ;

\ check if a number is a multiple of another
: is-multiple mod 0= ;               

\ get a random printable non-digit ascii char           
: random-char 84 random 33 + dup 47 > 10 * - ;  

\ get a "random" string of printable ascii chars the same length as a number
: rand-str num-length 0 do random-char emit loop space ;

\ print numbers from a to b, replacing multiple of 8 with a random ascii string of the same length
: crazy-eights 1+ swap do i 8 is-multiple if i rand-str else i . then loop ;

PHP , 130 байт

function($a,$b){for(;$a<=$b;$a++)echo$a%8?$a:(function($l){while($l--)echo chr(($x=rand(44,128))-($x>58?:11));})(strlen($a))," ";}

Попробуйте онлайн!

Ungolfed:

function c8( $a, $b ) { 
    for( ; $a<=$b; $a++ ) {                // loop between a -> b
        echo $a % 8 ? $a :                 // every 8, call anon func instead of value
            (function($l) {
                while( $l-- ) {            // repeat length of value
                    $x = rand( 44, 128 );  // range size is printable chars [33,47][58,127]
                    $x-= $x > 58 ?: 11;    // Subtract one from x. If x was less than or 
                                           // equal to 58, subtract a further ten from it
                                           // so that it now falls within the 33-47 range
                    echo chr( $x );        // echo ASCII value
                }
            })( strlen( $a ) )," ";
    }
}

Котлин , 136 байт

{r:IntRange->var s=""
for(i in r){for(c in "$i"){var n=java.util.Random().nextInt(83)
if(n>14)n+=10
s+=if(i%8>0)c
else '!'+n}
s+=" "}
s}

Попробуйте онлайн!