Сценарий: вы - разработчик программного обеспечения, работающий в правительственной компании, которая разрабатывает номерные знаки для автомобилей и других транспортных средств. Вас попросили разработать программное обеспечение, которое генерирует номерные знаки. Прежде чем вы приступили к работе, ваши начальники установили эти основные правила.

Номерной знак не может содержать:

• ASS
• 666
• 69<any number here>
• <any number here>69
• KKK
• SHT

Правила и требования:

• Номерной знак должен быть сгенерирован случайным образом.
• Как только случайный номерной знак сгенерирован, тот же номерной знак не может быть сгенерирован снова.
• Вы должны вывести не менее 200 уникальных номерных знаков. Вы можете генерировать больше, если хотите .
• Вы можете хранить сгенерированные пластины в файле, чтобы «запомнить» их.
• Номерной знак содержит 2 раздела, один из которых содержит только три буквы, а другой содержит только три числа, разделенных тире, например: 233-ADFили ADF-233.
• Вы можете использовать только цифры и заглавные буквы.
• Номерные знаки могут быть записаны на стандартный вывод или файл.
• Каждая «сторона» номерного знака будет содержать либо три цифры, либо буквы.
• Это код-гольф , поэтому самый короткий, самый популярный, выигрывает ответ. Победитель будет выбран через семь дней.

Основные правила

• Ответ должен включать, но не ограничиваться следующим.
• Название языка.
• Количество символов
• Размер файла.
• Как выполняется код
• Сам код.
• Пример: Python 234 символа или Python 23mb .

Если мне нужно уточнить какие-либо дополнительные детали, пожалуйста, укажите это в комментариях, и я добавлю это в свой пост. В любом случае, удачи, и создайте мне несколько соответствующих номерных знаков!

Обновление 1: Победитель будет выбран чуть раньше.

Оказывается, я должен скоро отправиться в поездку, поэтому я буду выбирать победителя около 00:00 UTC, 25 июля. После того, как победитель выбран, вы все равно можете подавать заявки, просто знайте, что победитель выбран. Бай.

Обновление 2: Победители!

У нас есть победители! Ура! Сыр и вино всем, кто участвовал! Вот кто победил.

• 1 место: Анхель - Баш (95 знаков)
• 2 место: Мартин Бюттнер - Mathematica (182 байта)
• 2 место: Эмилио М Бумачар - Пиг (92?)
• 2 место: Питер Тейлор - Golfscript (98 знаков)
• 3 место: Марк Томас - Руби (127 знаков)

Ух, три вторых места связи. Вау. Конкурс окончен, но вы можете подать заявку, если хотите. Бай!

Баш (95 символов)

Сохранить скрипт как m в папке в вашем PATH с установленным битом выполнения.

Запустить как bash m. Пластины хранятся в файле р

l(){ tr -dc $1</dev/urandom|head -c3;};egrep -ve"ASS|666|69|KKK|SHT" -fp>>p<<<`l 0-9`-`l A-Z`;m

Это эквивалентно выполнению следующего:

# Print three random numbers and three random letters
echo $(tr -dc 0-9 < /dev/urandom | head -c3)-$(tr -dc A-Z < /dev/urandom | head -c3) |

# Print only plates not matching the blacklist or any line of p
# Append the plates ton p
egrep -v -e "ASS|666|69|KKK|SHT" -f p >> p

# Execute itself again
m 

Предостережение: Финал mдолжен быть exec m(+5 символов), чтобы не оставлять процессы в ожидании завершения (но вы можете иметь тысячи без особых проблем)

Кредит идет на http://www.cyberciti.biz/faq/linux-random-password-generator/ за идею использованияtr -dc

PYG - 92

Pe(Se(Re.sub(".*(666|69|ASS|KKK|SHT).*","",J(RSm(STuc*3,3)+[j]+RSm(STd*3,3)))for j in'-'*K))

Теперь можно выбирать равномерно из всех неиспользованных планшетов, сохраняя спецификации ОП, при этом будучи короче еще на 1 символ.

Теоретически возможно, что список из 999 пластин будет содержать достаточно повторений, так что обрезанный набор будет меньше 200. Но шансы на это бесконечно малы. В десяти испытаниях самая низкая длина, которую я получил, была 994.

РЕДАКТИРОВАТЬ: изменил 999 на K (что pyg для 1000), чтобы сохранить два символа по совету bitpwner.

Mathematica, 182 байта

Тьфу, это долго

l={};While[Length[l=Union@Pick[l,StringFreeQ[l,"ASS"|"666"|"69"|"KKK"|"SHT"]]]<200,AppendTo[l,RandomSample[FromCharacterCode/@{48+9~(r=RandomInteger)~3,65+25~r~3}]~Riffle~"-"<>""]];l

Ungolfed

l = {};
While[
  Length[
    l = Union@
      Pick[l, StringFreeQ[l, "ASS" | "666" | "69" | "KKK" | "SHT"]]
  ] < 200,
  AppendTo[l, 
   RandomSample[
      FromCharacterCode /@ {48 + 9~(r = RandomInteger)~3, 
        65 + 25~r~3}]~Riffle~"-" <> ""]
  ];
l

Довольно просто. Создает случайные таблички и отфильтровывает дубликаты и запрещенные до тех пор, пока не будут найдены 200.

GolfScript (98 символов)

260{3?}:^~,{.10^+`-3>'-'+\10^/26^+26base(;{65+}%+.-1%}%{'ASSKKKSHT66669'3/{1$\?)!},*},{,^^rand}$n*

Это генерирует все возможные номерные знаки в случайном порядке, используя некрасивое базовое преобразование с последующей фильтрацией. Их много, поэтому не ожидайте, что они будут выполняться быстро, но вопрос не накладывал никаких ограничений на время выполнения.

JavaScript (ES6) - 213

Это, вероятно, может быть улучшено. Протестировано на консоли Firefox.

Измените это предупреждение на, console.log()если вы хотите проверить

r=x=>~~(Math.random()*x)+'';l=x=>[...'ABCDEFGHIJKLMNOPQRSTUVWXYZ'][r(26)];a=[];while(a.length<200)p=r(10)+r(10)+r(10)+'-'+l()+l()+l(),!/ASS|666|69|KKK|SHT/.test(p)&&a.indexOf(p)<0&&a.push(p);a.forEach(x=>alert(x))

Рубин - 136 133 129 знаков

Уродство. Думаю, что есть возможности для улучшения. Просто введите код irbили pryнажмите Enter для запуска:

f=->*t{[0,1,2].map{t.sample}*''}
g=->l{(a=f[*?A..?Z]+?-+f[*?0..?9];l|=[a]if/69|666|ASS|SHT|KKK/!~a)until l.size>199;l}
puts g[[]]

Рубин, 127 символов

Моя попытка "читаемой" версии Ruby:

a=[]
until a.size==200 do
  p="#{rand(899)+100}-#{('A'..'Z').to_a.sample(3).join}"
  a<<p unless p=~/69|666|ASS|SHT|KKK/
end
puts a

Python 2,7 - 258 символов

Я не профессиональный программист или что-то еще, поэтому я бы сказал, что доволен результатом.

import random as o
r=o.randint
t,j,k=[],0,""
b=["SHT","KKK","ASS","69","666"]
for i in range(200):
 l,j=b[0],b[4]
 while any(w in l for w in b):
  l,j="",""
  for i in range(3):
   l+=chr(r(65,90))
   j+=str(r(0,9))
 t.append(l+'-'+j)
print "\n".join(set(t))

Размер файла составляет 4,0 К, запустить с python file.py!

Питон - 208

Привет, вот мой удар по генерации номерного знака. Это решение похоже на решение @ bitpwner, но без строкового модуля и вместо списка для номерного знака, которое я выбрал для использования набора, а также сначала разрешает номера.

import random as r,re
f=r.randint
l=lambda x:chr(f(65, 90))if x else`f(0,9)`
d=set()
while len(d)<200:
 k=f(0,1);j=1-k;c=l(k)+l(k)+l(k)+'-'+l(j)+l(j)+l(j)
 if not(re.search("666|69|ASS|KKK|SHT",c)):d.add(c)

Пример вывода:

set(['DQJ-641', '086-QRY', '981-GAZ', 'UHN-718', '114-VMI', 'GLO-887',  ...

Python, 252 байта

Вот мой вклад. Я впечатлен этим, но я знаю, что другие сделали лучше с питоном.

from random import randint as r
f=()
while len(f)<200:
 t=str(r(0,999))
 if not("666" in t or "69" in t):
  u=''.join(chr(r(65,90)) for _ in [1,2,3])
  if not("KKK" in u or "SHT" in u or "ASS" in u):f+=("%s-%s"%(t.zfill(3),u),)
 f=tuple(set(f))
print f

Питон - 165

Этот импорт ...

import random as r,re
j="666|69|ASS|KKK|SHT"
t=r.randint
while len(j)<2e3:
 exec"x="+"chr(t(0,25)+65)+"*3+"'-'"+"+`t(0,9)`"*3
 if not re.search(j,x):print x;j+='|'+x

Если есть необходимость начать случайным образом с цифр или алфавитов, которые я не считаю нужными, тогда 190.

import random as r,re
j="666|69|ASS|KKK|SHT"
t=r.randint
while len(j)<2e3:
 exec"x="+"chr(t(0,25)+65)+"*3+"'-'"+"+`t(0,9)`"*3
 x=x[::r.choice((-1,1))]
 if not re.search(j,x):print x;j+='|'+x

PHP 341 324 320

Было лучшее, что я мог сделать.

<?$a="p";$b=fopen($a,'a+');while($c<200){$d=rand(100,999);$e='';for($f=0;$f<3;++$f)$e.=chr(rand(65,90));$g=(rand(1,2)==1)?"$d-$e":"$e-$d";$h=array('ASS','666','69','kkk','SHT');$i=1;foreach($h as $j)!preg_match("/$j/",$g)?:++$i;if($i==1){$k=fread($b,filesize($a));if(!strpos($k,$g)){fwrite($b,$g);echo"$g<br />";++$c;}}}

Чтобы запустить код, просто сохраните его как файл .php и перейдите к нему на любом веб-сервере. Он попытается создать файл черного списка p.txt, если он еще не существует. Однако вам может потребоваться указать его с полным путем к серверу, если у вас нет прав root.

Сам код здесь предварительно до гольфификации:

<?
// create random plate
// check it does not break rules
// check is not on all time blacklist file
// Add to blacklist file
// Output to screen

// open file handle
$file = "p"; // filename and path if not root access
$fh = fopen($file, 'a+');

// do 200
while($x<200) {

    // get random number
    $rand_number = rand(100,999);

    // get random letters
    $letters = '';
    for($y=0; $y<3; ++$y) $letters .= chr(rand(65,90));


    // mix up combination
    $string = (rand(1,2)==1) ? "$rand_number-$letters" : "$letters-$rand_number";

    // assume is ok
    $ok = 1;

    // Set checks to be excluded on new plates.
    $checks = array('ASS','666','69','kkk','SHT');

    // do the exclusions
    foreach ($checks as $check) !preg_match("/$check/", $string) ? : ++$ok;


    // if all ok, check is not on the blacklist
    if($ok == 1) {

        // read blacklist
        $blacklist = fread($fh, filesize($file));

        // if not on blacklist, add it to file, echo it to output, increment counter
        if (!strpos($blacklist, $string)) {
            fwrite($fh, $string);
            echo "$string<br />";
            ++$x;
        }
    }
}

Был настолько коротким, насколько я мог получить :-(

Пример вывода

XWU-888
PUD-534
355-QXG
WDE-402
113-QID
362-YBW
TBK-594
939-XDT
148-ARZ
838-ICY
723-ZDA
.... does exactly 200 new plates.

РЕДАКТИРОВАТЬ: привести в порядок пару операторов if для использования краткой формы.

Delphi, 161 байт

Вот мой взгляд на это. Он выводит номерные знаки на стандартный вывод без перевода строки между ними. Если требуется LF (не указано в правилах), то это добавляет дополнительные 4 байта.

Гольф версия:

var S,L:string;begin repeat Str(100+Random(69),S);S:=S+'-';while Length(S)<7do S:=S+Chr(65+Random(10));if Pos(S,L)=0then L:=L+S;until Length(L)>1393;Write(L)end.

Ungolfed:

var
  S, L: string;
begin
  repeat
    Str(100 + Random(69), S); // generate and add first three numbers
    S := S + '-'; // add dash
    while Length(S) < 7 do // generate and add last three letters
      S := S + Chr(65 + Random(10));
    if Pos(S, L) = 0 then // check if its not in the L string and add it
      L := L + S;
  until Length(L) > 1393; // exit loop once L string has more than 1393 chars (199 * 7 = 1393)
  Write(L); // output L to stdout
end.

Как запустить:

app.exe > plates.txt

PHP, 267

Это настолько коротко, насколько я могу это понять.

<?php $g=file("p",2)?:[];$b=["ASS","666","KKK","SHT"];for($i=0;$i<200;){$m="A";$n=rand(702,18277);for($j=0;$j<$n;$j++){$m++;}$m.=-rand(100,999);if(!(strpos($m,"69")|in_array($m,$b)|in_array($m,$g))){$g[]=$m;echo"$m\n";$i++;}}file_put_contents("p",implode("\n",$g));?>

Пластины хранятся в файле "p".

<?php
$g=file("p",2)?:[]; // Read existing plates
$b=["ASS","666","KKK","SHT"]; // Don't generate these
for($i=0;$i<200;){ // 200 plates
    $m="A"; // Base letter
    $n=rand(702,18277); // 3 random letters
    for($j=0;$j<$n;$j++){$m++;} // Increment until letters are reached (SLOW, but short)
    $m.=-rand(100,999); // Add a dash and three numbers
    if(!(strpos($m,"69")|in_array($m,$b)|in_array($m,$g))){ // Check that it's valid and unused
        $g[]=$m;echo"$m\n";$i++; // Echo it, add it to used array and increment counter
    }
}
file_put_contents("p",implode("\n",$g)); // Save the plates
?>

R, 229 символов

Я уверен, что это можно улучшить:

l=function(x)paste0(sample(x,3,r=T),collapse="")
a=function()c(l(LETTERS),l(0:9))
A=list()
for(i in 1:200)while(any(sapply(c("ASS","666","69","KKK","SHT"),grepl,A[[i]]<-a()))|A[i]%in%A[-i])A[[i]]=a()
lapply(A,paste,collapse="-")

Запустите в консоли, распечатывает список номерных знаков.

Кобра - 198

class P
    def main
        l,r=[],Random()
        while l.count<200
            a,b=r.next(1000),''
            for i in 3,b+='[r.next(65,91)to char]'
            if not ('69'in'[a]'or 666==a or b in'ASS KKK SHT'),l+=['[a]-'+b]
        print l

ECMAScript 6 - 155 168 158

Предупреждение : 200 предупреждений Диалоги (изменение alertк console.logтесту)

for(i=0,s={},r=Math.random,l=x=>String.fromCharCode(65+r()*26);i<200;)/ASS|666|69|KKK|SHT/.test(p=(r()+'-'+l()+l()+l()).slice(-7))?0:s[p]=s[p]||(alert(p),i++)

Редактировать : Ой. Оригинальная версия печатных дубликатов ...

Редактировать 2 : теперь ближе к исходной партитуре - переключен с набора на ассоциативный массив с некоторыми нечетко повторяющимися проверками, позволяющими печатать по ходу дела

Протестировано в консоли Firefox.

JavaScript (ES6) 184

Как обычно, тестирование в FireFox консоли и изменения alertк console.logили быть готовым к прессе escape200 раз.

R=x=>Math.random()*++x|0
for(l='ABCDEFGHIKJLMNOPQRSTUVWXYZ',i=0,u={};i<200;)
!(/69|666|ASS|SHT|KKK/.test(k=l[R(25)]+l[R(25)]+l[R(25)]+'-'+R(9)+R(9)+R(9))&u[k])&&alert(k,u[k]=++i);

Python3, 257 символов

import string as X,re,random as R
I=[0,1,2]
s={}
while len(s)<200:
 L=R.sample([[R.choice(X.digits) for i in I],[R.choice(X.ascii_uppercase) for i in I]],2);L=''.join(L[0]+['-']+L[1])
 if re.search('ASS|KKK|SHT|69|666',L) or L in s:continue
 print(L);s[L]=0

Пример вывода:

# python3 shortened.py
EUN-215
546-SIL
464-ZTR
XIX-794

PHP, 167

while(count($a)<200){$c="";for(;++$y&3;)$c.=chr(rand(65,90));$d=rand(100,999);$c=rand()&1?"$d-$c":"$c-$d";preg_match("/ASS|666|69|KKK|SHT/",$c)||$a[$c]=1;}print_r($a);

это на 100 символов меньше, чем у лучших PHP! :)

while(count($a)<200)
{
    $c="";
    for(;++$y&3;) $c.=chr(rand(65,90));
    $d=rand(100,999);
    $c=rand()&1?"$d-$c":"$c-$d";
    preg_match("/ASS|666|69|KKK|SHT/",$c)||$a[$c]=1;
}
print_r($a);

надеюсь, вам понравится. В случае, если это разрешено:

while(count($a)<200){$c="";for(;++$y&3;)$c.=chr(rand(65,90));$c.=-rand(100,999);preg_match("/ASS|666|69|KKK|SHT/",$c)||$a[$c]=1;}print_r($a);

только 141 символ, но не тасует символы и числа. Любые предложения приветствуются :)

F #, 264 символа

Не совсем язык, предназначенный для игры в гольф, но я уверен, что это можно улучшить. Использование Seq.exists с лямбдой довольно раздражает, так же как и множество паренов и отсутствие неявного преобразования.

Использует рекурсию, продолжает идти вечно.

let g=System.Random()
let c()=char(g.Next(65,90))
let k(i:string)l=Seq.exists(fun e->i.Contains(e))l
let rec p d:unit=
 let l=sprintf"%i-%c%c%c"(g.Next(100,999))(c())(c())(c())
 if k l d||k l ["ASS";"666";"69";"KKK";"SHT"]then p d else
  printfn"%s"l
  p(l::d)
p[]

Может быть запущен в FSI.

Python 203

Я не уверен, что это технически важно, но мне понравилось, так что я все равно публикую. В то время как я генерирую ответы псевдослучайно, как и почти все остальные, я стратегически выбрал случайное зерно так, чтобы неправильные ответы не попадали в вывод. Таким образом, мой ответ на самом деле не способен генерировать весь набор действительных ответов, а также не может генерировать недействительные.

from random import*;seed(1);L='ABCDEFGHIJKLMNOPQRSTUVWXYZ';D='0123456789';C=choice
for i in 'x'*200:s=randint(0,1);a=''.join(C(L)for _ in'000');b=''.join(C(D)for _ in'000');i=[a,b];print i[s-1]+'-'+i[s]

Perl - 123 персонажа

while(@p<200){$l=(AAA..ZZZ)[int rand 999]."-".(100+int rand 899);@p=grep!/ASS|666|69|KKK|SHT|$l/,@p;push@p,$l}$,=$/;print@p

Ungolfed:

while(@p < 200){ # Repeat until we get 200 plates
    $l = (AAA..ZZZ)[int rand 999]."-".(100+int rand 899); # generate the license plate
    @p = grep !/ASS|666|69|KKK|SHT|$l/, @p; # remove disallowed license ones and duplicates
    push @p, $l # add a license plate
}
$,=$/; # so they print with newlines
print @p # print the plates

Если у кого-то есть идеи поиграть в гольф дальше, дайте мне знать, мне интересно. Если вы хотите получить более подробное объяснение части кода, оставьте комментарий, и я с удовольствием объясню больше.

Javascript - 283 327 символов

Редактировать:

После реализации предложений от Alconja , вот моя новая версия:

m=Math.random;function y(v){return "ASS|KKK|SHT|666".indexOf(v)<0&&v.indexOf("69")<0?0:!0}function c(){return String.fromCharCode(m()*26+65)}for(i=0;i<200;i++){do {do {n=(m()+"").slice(2,5)}while(y(n));do {l=c()+c()+c()}while(y(l));r=l+"-"+n}while(o.indexOf(r)>=0);o+=r+"\n"}alert(o)
/* 1 line - 283 Characters */

1) Удалить переменную: s и использовать литерал: "\ n" [-4] [323]
2) Удалить "var o =" ", i, r, n, l," [-17] [306]
3) Удалить Переменная: t и используйте литерал: «ASS | KKK | SHT | 666» [-4] [302]
4) Установите m = Math.random и используйте вместо него «m» [-7] [296]
5) Используйте (m ( ) + "") вместо m (). toString () [-6] [290]
6) Удалить ненужные ";" [-7] [283]

Старая версия: Javascript - 327 символов

Я уверен, что есть место для совершенствования ... Я довольно неопытен в Code-golfing:

var o="",s="\n",i,r,n,l,t="ASS|KKK|SHT|666";function y(v){return t.indexOf(v)<0&&v.indexOf("69")<0?0:!0;}function c(){return String.fromCharCode(Math.random()*26+65);}for(i=0;i<200;i++){do {do {n=Math.random().toString().slice(2,5);}while(y(n));do {l=c()+c()+c();}while(y(l));r=l+"-"+n;}while(o.indexOf(r)>=0);o+=r+s;}alert(o);    
/* 1 line - 327 Characters */

Вот отформатированная версия «Ungolfed» с «неминифицированными» именами переменных / функций:

var outp="",lsep="\n",ndx,res,nbr,ltr,tbl="ASS|KKK|SHT|666";
function fnvfy(vinp){
  return tbl.indexOf(vinp)<0&&vinp.indexOf("69")<0?0:!0;
}
function fnchr(){
  return String.fromCharCode(Math.random()*26+65);
}
for(ndx=0;ndx<200;ndx++){
  do {
    do {
      nbr=Math.random().toString().slice(2,5);
    }
    while(fnvfy(nbr));
    do {
      ltr=fnchr()+fnchr()+fnchr();
    }
    while(fnvfy(ltr));
    res=ltr+"-"+nbr;
  }
  while(outp.indexOf(res)>=0);
  outp+=res+lsep;
}
alert(outp);

javascript:(function(){var outp="",lsep="\n",ndx,res,nbr,ltr,tbl="ASS|KKK|SHT|666";function fnvfy(vinp){return tbl.indexOf(vinp)<0&&vinp.indexOf("69")<0?0:!0;}function fnchr(){return String.fromCharCode(Math.random()*26+65);}for(ndx=0;ndx<200;ndx++){do {do {nbr=Math.random().toString().slice(2,5);}while(fnvfy(nbr));do {ltr=fnchr()+fnchr()+fnchr();}while(fnvfy(ltr));res=ltr+"-"+nbr;}while(outp.indexOf(res)>=0);outp+=res+lsep;}var x=window.open();x.document.write('<head>\n</head>\n<body>\n<form name=sa><textarea name=t rows=25 cols=80 wrap>'+outp+'</textarea><br />\n</body>\n');x.document.close();})()
/* */

Вот отладочная версия, отформатированная:

javascript:
(function(){
  var outp="",lsep="\n",ndx,res,nbr,ltr,tbl="ASS|KKK|SHT|666";
  function fnvfy(vinp){
    return tbl.indexOf(vinp)<0&&vinp.indexOf("69")<0?0:!0;
  }
  function fnchr(){
    return String.fromCharCode(Math.random()*26+65);
  }
  for(ndx=0;ndx<200;ndx++){
    do {
      do {
        nbr=Math.random().toString().slice(2,5);
      }
      while(fnvfy(nbr));
      do {
        ltr=fnchr()+fnchr()+fnchr();
      }
      while(fnvfy(ltr));
      res=ltr+"-"+nbr;
    }
    while(outp.indexOf(res)>=0);
    outp+=res+lsep;
  }
  var x=window.open();
  x.document.write('<head>\n</head>\n<body>\n<form name=sa><textarea name=t rows=25 cols=80 wrap>'+outp+'</textarea><br />\n</body>\n');
  x.document.close();
}
)()