Мені потрібен UUID. Ваше завдання - створити один.

Канонічний UUID (Універсально унікальний ідентифікатор) - це 32-значне шістнадцяткове число з дефісами, вставленими в певних точках. Програма повинна виводити 32 шістнадцяткових цифр (128 біт) у вигляді xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx( 8-4-4-4-12цифр), де xє випадкове шістнадцяткове число. Якщо припустити, що PRNG вашої мови є ідеальним, всі дійсні результати повинні мати однакову ймовірність створення.

TL; DR

Створіть 32 випадкові шістнадцяткові цифри у вигляді 8-4-4-4-12цифр. Найкоротший код виграє.

EDIT: Повинно бути шістнадцятковим. Завжди генерування лише десятків недійсне. EDIT 2: Немає вбудованих модулів. Це не GUID, а просто загальні шістнадцяткові цифри.

Приклад виводу:

ab13901d-5e93-1c7d-49c7-f1d67ef09198
7f7314ca-3504-3860-236b-cface7891277
dbf88932-70c7-9ae7-b9a4-f3df1740fc9c
c3f5e449-6d8c-afe3-acc9-47ef50e7e7ae
e9a77b51-6e20-79bd-3ee9-1566a95d9ef7
7b10e43c-3c57-48ed-a72a-f2b838d8374b

Вхідні та стандартні лазівки заборонені.

Це код-гольф , тому найкоротший код виграє. Також сміливо запитуйте роз'яснення.

Pyth, 20 байт

j\-msm.HO16*4hdj83 3

Демонстрація.

Кодує [1, 0, 0, 0, 2]як 83 в базі 3, потім додає один і множиться на чотири, щоб отримати довжину кожного сегмента. Потім робить шістнадцяткові цифри і приєднується до дефісів.

Джулія, 80 байт

h=hex(rand(Uint128),32)
print(h[1:8]"-"h[9:12]"-"h[13:16]"-"h[17:20]"-"h[21:32])

Створіть випадкове 128-розрядне ціле число, отримайте його шістнадцяткове представлення у вигляді рядка з 32 цифрами та розділіть його на сегменти, з'єднані тире.

Дякуємо ConfusedMr_C та kvill за допомогу!

CJam, 26 25 байт

8 4__C]{{Gmr"%x"e%}*'-}/;

Спробуйте його в Інтернеті інтерпретаторі CJam .

Як це працює

8 4__C]{              }/   For each I in [8 4 4 4 12]:
        {         }*         Do I times:
         Gmr                   Pseudo-randomly select an integer between 0 and 15.
            "%x"e%             Apply hexadecimal string formatting.
                    '-       Push a hyphen-minus.
                        ;  Discard the last hyphen-minus.

PowerShell, 77 69 67 байт

((8,4,4,4,12)|%{((1..$_)|%{'{0:X}'-f(random(16))})-Join""})-Join"-"

редагувати: сторонні парени:

((8,4,4,4,12)|%{((1..$_)|%{('{0:X}'-f(random(16)))})-Join""})-Join"-"

редагувати: вдалося видалити кінцевий .Trim ("-") з оригіналу:

(((8,4,4,4,12)|%{((1..$_)|%{('{0:X}'-f(random(16)))})+"-"})-Join"").Trim("-")

Це може бути зрозуміліше з деяким пробілом, враховуючи характер прапорів (-f і -Join). Я все одно хотів би програти остаточну обробку ("-"):

(((8,4,4,4,12)|%{((1..$_)|%{('{0:X}' -f (random(16)))}) + "-"}) -Join "").Trim("-")

Або, використовуючи вбудований функціонал (аля відповідь C # вище)

'{0}'-f[System.Guid]::NewGuid()

Однак, здається, скороминуча клавіша-y, навіть якщо вона входить у 31 байт.

Python 2, 86 84 байт

from random import*;print'-'.join('%%0%ix'%i%randint(0,16**i-1)for i in[8,4,4,4,12])

Це ланцюжкові формати для рядків, щоб змусити Python форматувати шістнадцяткові номери для кожного сегмента.

Безголівки:

import random

final = []
for i in [8, 4, 4, 4, 12]:               # Iterate through every segment
    max = (16 ** i) - 1                  # This is the largest number that can be
                                         # represented in i hex digits
    number = random.randint(0, max)      # Choose our random segment
    format_string = '%0' + str(i) + 'x'  # Build a format string to pad it with zeroes
    final.append(format_string % number) # Add it to the list

print '-'.join(final)                    # Join every segment with a hyphen and print

Це могло б використати певне вдосконалення, але я пишаюся.

Perl 5 , 43 байти

Збережено 2 байти завдяки @Xcali !

printf"%04x"."-"x/[2-5]/,rand 2**16for 1..8

Спробуйте в Інтернеті!

PHP, 69 72 75 байт

foreach([8,4,4,4,12]as$c)$r[]=rand(".1e$c","1e$c");echo join('-',$r);

Це не виводить шістнадцяткових цифр ( a, ...f ). Вони дозволені, але не вимагаються органом запитання.

Жодна цифрова група не починається з 0(також не потрібно).

редагувати: збережено 3 байти завдяки @IsmaelMiguel

C #, 65 байт

using System;class C{void Main(){Console.Write(Guid.NewGuid());}}

редагувати: Так! C # коротший, ніж інша мова (крім Java) :)

гаук, 86

BEGIN{for(srand();j++<32;printf(j~"^9|13|17|21"?"-":E)"%c",x+(x>10?87:48))x=rand()*16}

Ви можете використовувати це раз на секунду для створення унікального випадкового "UUID". Це тому, що srand()використовується системний час у секундах з епохи як аргумент, якщо аргумент не наводиться.

for n in `seq 100` do awk 'BEGIN{for(srand();j++<32;printf(j~"^9|13|17|21"?"-":E)"%c",x+(x>10?87:48))x=rand()*16}'; sleep 1; done

Я думаю, що частина awk досить елегантна.

BEGIN{
    srand()
    for(;j++<32;) {
        x=rand()*16
        x+=(x>10?87:48)
        printf "%c", x
        if(j~"^8|12|16|20")printf "-"
    }
}

Якщо ви хочете використовувати його частіше, ніж раз на секунду, ви можете називати це в bash таким чином. Зверніть увагу, що частина awk теж змінена.

echo `awk 'BEGIN{for(srand('$RANDOM');j++<32;printf(j~"^9|13|17|21"?"-":E)"%c",x+(x>10?87:48))x=rand()*16}'`

Там echoдодається, щоб кожен раз друкувати новий рядок.

К5, 35 байт

"-"/(0,8+4*!4)_32?`c$(48+!10),65+!6

Щоб створити шістнадцятковий алфавіт, я генерую символьний рядок ( `c$) зі списку цифр ( 48+!10) та перших 6 великих літер ( 65+!6). Альтернативний спосіб отримання цифр однакової довжини ,/$!10.

Згенерований рядок "0123456789ABCDEF", решта просте. Виберіть з цього набору 32 випадкових значення ( 32?), розріжте ( _) фрагмент ( ), що 0 8 12 16 20обчислюється через (0,8+4*!4), а потім з'єднайте отримані фрагменти рядка з тире ( "-"/).

Дія:

  "-"/(0,8+4*!4)_32?`c$(48+!10),65+!6
"9550E114-A8DA-9533-1B67-5E1857F355E1"

R , 63 байти

x=sample(c(0:9,letters[1:6]),36,1);x[0:3*5+9]='-';cat(x,sep='')

Спробуйте в Інтернеті!

Код спочатку будує випадковий рядок з 36 символів, а потім розміщує чотири дефіси. Він видає UUID для stdout.

JavaScript, ES6, 106 байт

"8-4-4-4-12".replace(/\d+/g, m => {t=0;for(i=0; i<m; i++) {t+=(Math.random()*16|0).toString(16)}return t})

Використовує заміну Regex. Розглядає рядок формату як кількість для генерування шістнадцяткових знаків. Підйом, куди я можу; опускаючи крапки з комою, де це можливо.

Perl 6 , 53 байти

Очевидний:

say join '-',(0..9,'a'..'f').flat.roll(32).rotor(8,4,4,4,12)».join # 67

Переклад прикладу Perl 5 за допомогою printf, приводить до коду, який трохи коротший.

printf ($_='%04x')~"$_-"x 4~$_ x 3,(0..^4⁸).roll(8) # 53

Котлін , 175 байт

fun main(a:Array<String>){
fun f()="0123456789abcdef".get((Math.random()*16).toInt())
var s=""
for(i in listOf(8,4,4,4,12)){
for(j in 1..i)
s+=f()
if(i!=12)s+="-"}
println(s)}

Спробуйте в Інтернеті!

Моя перша в історії програма «Котлін» та подання PPCG

APL (Dyalog Unicode) , 115 78 байт

a←⊣,'-',⊢
H←⊃∘(⎕D,819⌶⎕A)¨16∘⊥⍣¯1
(H 8?16)a(H 4?16)a(H 4?16)a(H 4?16)a H 12?16

Спробуйте в Інтернеті!

Це моє перше подання про APL. Величезне спасибі @ Adám за те, що я переживав зі мною APL-чату PPCG і за шістнадцяткову функцію перетворення.

Завдяки @ Zacharý за 1 байт

Відредаговано, щоб виправити кількість байтів.

Japt , 32 байти

[8,4,4,4,12]m@MqG**X sG ù0X} q"-

Спробуйте в Інтернеті!

MATLAB / Октава, 95 байт

a='-';b=strcat(dec2hex(randi(16,32,1)-1)');[b(1:8) a b(9:12) a b(13:16) a b(17:20) a b(21:32)]

Perl , 51 байт

say"xx-x-x-x-xxx"=~s/x/sprintf"%04x",rand 65536/reg

Потрібно perl5> = 5.10 Я думаю. Для модифікатора / r та для say ().

J , 42 39 37 27 байт

echo'-'(8+5*i.4)},hfd?36#16

Спробуйте в Інтернеті!

C ++, 194 193 221 210 201 байт

+7 байт завдяки Zacharý (виявлено, -що не повинно бути в кінці)

#include<iostream>
#include<random>
#include<ctime>
#define L(a)for(int i=0;i<a;++i)std::cout<<"0123456789abcdef"[rand()%16];
#define P(a)printf("-");L(a)
void t(){srand(time(0));L(8)P(4)P(4)P(4)P(12)}

Якщо у когось є спосіб отримати різну цінність кожного виконання без зміни srandта без включення <ctime>, це було б чудово

Befunge-93 , 97 байт

v>4448v,+<    <
0*    :  >59*0^
62v0-1_$:|>*6+^
>^>41v < @^99<
v<*2\_$:54+` |
?0>+\1-^ v*68<>
>1^

Спробуйте в Інтернеті!

Я впевнений, що це може скоротитися, але це моя перша спроба :)

Баш, 67 байт

for l in 4 2 2 2 6;{ o+=`xxd -p -l$l</dev/random`-;}
echo ${o::-1}

JavaScript REPL, 79 байт

'66-6-6-6-666'.replace(/6/g,_=>(Math.random().toString(16)+'00000').slice(2,6))

Спробуйте в Інтернеті!

Math.randomможе повернутися 0. Додавши 5 нулів, змусити нарізку отримати 4 0с

Четвертий (gforth) , 91 89 байт

include random.fs
hex
: f 0 4 4 4 8 20 0 do dup i = if + ." -" then 10 random 1 .r loop ;

Спробуйте в Інтернеті!

Пояснення

Змінює основу на шістнадцять, а потім виводить числа / відрізки відповідної довжини тиреми через задані інтервали

Пояснення коду

include random.fs          \ include the random module
hex                        \ set the base to hexadecimal
: f                        \ start a new word definition
  0 4 4 4 8                \ enter the intervals to place dashes
  20 0 do                  \ start a counted loop from 0 to 0x20 (32 in decimal)
    dup i =                \ check if we are on a character that needs a dash
    if                     \ if we are
      +                    \ calculate the next character that gets a dash
      ." -"                \ output a dash
    then                   \ end the if block
    f random               \ get a random number between 0x0 and 0xf
    1 .r                   \ output it right-aligned in 1-character space
  loop                     \ end the loop
;                          \ end the word definition

C (gcc) ,  94   91  86 байт

main(i){srand(&i);i=803912;for(;i--%16||(i/=16)&&printf("-");printf("%x",rand()%16));}

Спробуйте в Інтернеті!

Я хотів би запропонувати цю версію у коментарі до Макса Єхлакова ( його відповідь ), але, на жаль, у мене ще немає 50 потрібних балів репутації, тому ось моя відповідь.

803912знаходиться C4448в шістнадцятковій формі, вона описує, як слід форматувати висновок ( 12-4-4-4-8), він повертається назад, оскільки найменше значущі цифри будуть прочитані першими.
 

Зміни:

• врятувало 3 байти завдяки Джонатану Фреху
• збережено ще 5 байт, замінивши srand(time(0))наsrand(&i)

C (gcc), 143 110 103 96 94 байт

Поле на гольф до 94 байтів завдяки плафоні та Джонатану Фреху.

(*P)()="\xf\x31À";*z=L"\10\4\4\4\14";main(n){for(;*z;*++z&&putchar(45))for(n=*z;n--;printf("%x",P()&15));}

Спробуйте в Інтернеті!

Пояснення:

/*
  P is a pointer to a function.
  The string literal contains actual machine code of the function:

  0F 31     rdtsc
  C3        ret

  0xc3 is the first byte of the UTF-8 representation of the character À
*/
(*P)() = "\xf\61À";

// encode uuid chunk lengths as literal characters
// we use wide characters with 'L' prefix because
// sizeof(wchar_t)==sizeof(int) for 64-bit gcc C on TIO
// so z is actually a zero-terminated string of ints
*z = L"\8\4\4\4\14"

main (n)
{
    for (
        ; 

        // loop until we reach the trailing zero
        *z;

        // increase the pointer and dereference it
        *++z 
             // and output a hyphen, if the pointer does not point at zero
             && putchar(45) 
    )
        // output a random hex string with length pointed at by z
        for (n = *z; n--; printf ("%x", P()&15));
}

Java з десятистопним лазерним полюсом проти 1,06, 126 байт

String u(){return sj224.tflp.util.StringUtil.replace("aa-a-a-a-aaa","a",s->String.format("%04x",(int)(Math.random()*65536)));}

Тестовано з версією 1,06 бібліотеки, але це має працювати з будь-якою версією 1,04 або новішою.

Желе , 17 байт

ØhWẋ36X€”-“µÇŒð‘¦

Спробуйте в Інтернеті!

SmileBASIC, 65 62 байти

DEF G H?"-";:END
DEF H?HEX$(RND(65536),4);
END H G G G G H H H

Я створив функцію для друку 4 випадкових шістнадцятирічних цифр: DEF H?HEX$(RND(65536),4);:ENDа також 4 цифри з А -після них DEF G:H?"-";:END. Тоді потрібно просто викликати ці функції купу разів.

Чіп , 109 + 6 = 115 байт

Потрібні прапори -wc36, спричиняючи +6 байт

!ZZZZZZZZZZZZZZZZZZZZZZ
,-----.,+vv--^----^---z
?]]]--R\acd
?xx+-)\\b
?x+x-)\\c
?^xx\--\d
`-xx]v~\e
f*`)'`-\g

Спробуйте в Інтернеті!

Створює 4 випадкових біта (чотири ?) і перетворює в шістнадцяткові цифри:

• 0x0- 0x9=> 0-9
• 0xa- 0xe=> b-f
• 0xf => a

... трохи нетрадиційно, але це врятувало мені кілька байтів, не витрачаючи їх на розподіл результатів.