El escenario: usted es un diseñador de software que trabaja para una empresa administrada por el gobierno que diseña placas para automóviles y otros vehículos. Se le ha pedido que desarrolle software que genere placas de matrícula. Antes de ir a trabajar, tus jefes establecieron estas reglas básicas.

Una placa no puede contener:

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

Reglas y requisitos:

• La matrícula debe ser generada al azar.
• Una vez que se genera una matrícula aleatoria, la misma matrícula no puede generarse nuevamente.
• Debe generar al menos 200 placas únicas . Puedes generar más si quieres .
• Puede almacenar placas generadas en un archivo para "recordarlas".
• La placa de matrícula contiene 2 secciones, una que contiene solo tres letras y otra que contiene solo tres números, separados por un guión, como este: 233-ADFo ADF-233.
• Solo puede usar números y letras mayúsculas.
• Las placas de matrícula se pueden escribir en stdout o en un archivo.
• Cada "lado" de una placa contendrá tres números o letras.
• Este es un código de golf , por lo que la respuesta más corta y más popular gana. El ganador será elegido después de siete días.

Reglas generales

• La respuesta debe incluir, entre otros, lo siguiente.
• Nombre del lenguaje.
• Número de letras.
• Tamaño del archivo.
• Cómo se ejecuta el código.
• El código en sí.
• Ejemplo: caracteres Python 234 o Python 23mb .

Si necesito aclarar algún detalle adicional, menciónelo en los comentarios y lo agregaré a mi publicación. De todos modos, buena suerte, ¡y que me generen algunas placas apropiadas!

Actualización 1: el ganador será elegido un poco antes.

Resulta que tengo que hacer un viaje pronto, por lo que elegiré un ganador alrededor de las 00:00 UTC del 25 de julio. Después de que se elija el ganador, aún puede enviar entradas, solo sepa que se ha elegido un ganador. Bai

Actualización 2: ¡Ganadores!

¡Tenemos ganadores! ¡Hurra! ¡Queso y vino a todos los que participaron! Aquí está quién ganó.

• 1er lugar: Àngel - Bash (95 caracteres)
• 2do lugar: Martin Büttner - Mathematica (182 bytes)
• 2do lugar: Emilio M Bumachar - Pyg (92?)
• 2do lugar: Peter Taylor - Golfscript (98 caracteres)
• 3er lugar: Mark Thomas - Ruby (127 caracteres)

Wow, tres empates en el segundo lugar. Guau. La competencia ha terminado, pero siéntase libre de enviar entradas si lo desea. Bai!

bash (95 caracteres)

Guarde el script como men una carpeta en su RUTA con el conjunto de bits de ejecución.

Corre como bash m. Las placas se almacenan en el archivo p

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

Esto es equivalente a ejecutar lo siguiente:

# 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 

Advertencia: la final mdebería ser exec m(+5 caracteres) para evitar dejar los procesos en espera de completarse (pero puede tener miles sin muchos problemas)

El crédito va a http://www.cyberciti.biz/faq/linux-random-password-generator/ por la idea de usartr -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))

Ahora puede seleccionar uniformemente de todas las placas no utilizadas, manteniendo las especificaciones de OP, mientras que es más corto en 1 carácter más.

Es teóricamente posible que la lista de 999 placas contenga suficientes repeticiones para que el conjunto recortado sea inferior a 200. Pero las probabilidades de que eso sea infinitesimal son pequeñas. En diez ensayos, la longitud más baja que obtuve fue 994.

EDITAR: cambió 999 a K (que es pyg por 1000), para guardar dos caracteres por recomendación de bitpwner.

Mathematica, 182 bytes

Ugh, esto es largo

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

Sin golf

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

Muy claro. Genera placas aleatorias y filtra los duplicados y los prohibidos hasta encontrar 200.

GolfScript (98 caracteres)

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

Esto genera todas las placas posibles en un orden aleatorio usando una conversión de base fea seguida de filtrado. Hay muchos de ellos, así que no esperes que se ejecute rápidamente, pero la pregunta no impuso ninguna restricción en el tiempo de ejecución.

JavaScript (ES6) - 213

Probablemente se pueda mejorar. Probado en Firefox Console.

Cambie esa alerta a a console.log()si desea probar

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))

Ruby - 136 133 129 caracteres

Horrible. Sin embargo, creo que hay margen de mejora. Simplemente suelte el código irbo prypresione Enter para ejecutar:

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[[]]

Ruby, 127 caracteres

Mi intento de una versión "legible" de 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 caracteres

No soy un programador profesional ni nada, entonces diría que estoy satisfecho con el resultado.

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))

¡El tamaño del archivo es de 4.0 K, corre con python file.py!

Python - 208

Hola, he aquí mi puñalada en la generación de matrículas. Esta solución es similar a la solución de @ bitpwner pero sin el módulo de cadena y en lugar de una lista para la placa elegí usar un conjunto y también permite números primero.

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)

Salida de muestra:

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

Python, 252 bytes

Aquí está mi contribución. Estoy impresionado con eso, pero sé que otros lo han hecho mejor con Python.

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

Python - 165

Esas importaciones ...

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

Si es necesario comenzar al azar con números o alfabetos, lo cual no creo que sea realmente necesario, entonces 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

Fue lo mejor que pude hacer.

<?$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;}}}

Para ejecutar el código, simplemente guárdelo como un archivo .php y busque en cualquier servidor web. Intentará crear el archivo de lista negra p.txt si aún no existe. Sin embargo, es posible que deba definirlo con una ruta completa del servidor si no tiene acceso de root.

El código en sí está aquí antes de la golfificación:

<?
// 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;
        }
    }
}

Fue lo más corto que pude conseguir :-(

Salida de muestra

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.

EDITAR: ordenó un par de declaraciones if para usar la forma corta.

Delphi, 161 bytes

Aquí está mi opinión sobre esto. Produce placas de matrícula en stdout sin avance de línea entre ellas. Si se necesita LF (no especificado en las reglas), eso agrega 4 bytes adicionales.

Versión de golf:

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.

Sin golf:

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.

Como correr:

app.exe > plates.txt

PHP, 267

Esto es lo más corto que puedo obtener.

<?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));?>

Las placas se almacenan en el archivo "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 caracteres

Estoy seguro de que esto podría mejorarse:

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="-")

Ejecutar en la consola, imprime una lista de placas.

Cobra - 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

Advertencia : 200 cuadros de diálogo de alerta (el cambio alertde console.loga prueba)

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++)

Editar : ¡Vaya! Versión original impresa duplicados ...

Edición 2 : ahora más cerca de la partitura original: cambió de un conjunto a una matriz asociativa con algunos cheques duplicados que le permiten imprimir a medida que avanza

Probado en la consola de Firefox.

JavaScript (ES6) 184

Como de costumbre, prueba en FireFox consola y el cambio alerta console.logo estar preparado para prensa escape200 veces.

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 caracteres

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

Salida de muestra:

# 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);

eso es 100 caracteres menos que el mejor PHP actual :)

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);

Espero que te guste. En caso de que esté permitido:

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);

son solo 141 caracteres pero no mezcla caracteres y números. Cualquier sugerencia bienvenida :)

F #, 264 caracteres

No es realmente un lenguaje diseñado para jugar al golf, pero estoy seguro de que esto podría mejorarse. Usar Seq.exists con una lambda es bastante molesto, como lo son los muchos parens y la falta de conversión implícita.

Utiliza la recursividad, continúa para siempre.

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[]

Se puede ejecutar en FSI.

Python 203

No estoy seguro de si esto técnicamente cuenta, pero me gustó, así que lo publico de todos modos. Si bien genero las respuestas pseudoaleatoriamente, como lo hicieron casi todos los demás, elegí estratégicamente la semilla aleatoria de modo que las respuestas no válidas no terminaran en la salida. Entonces, mi respuesta no es capaz de generar el conjunto completo de respuestas válidas, sin generar también las inválidas.

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 caracteres

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

Sin golf:

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

Si alguien tiene ideas para jugar más golf, hágamelo saber, estoy interesado. Si desea una explicación más detallada de parte del código, deje un comentario y me complacería explicarle más.

Javascript - 283 327 caracteres

Editar:

Después de implementar las sugerencias de Alconja , aquí está mi nueva versión:

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) Eliminar Variable: sy usar literal: "\ n" [-4] [323]
2) Eliminar "var o =" ", i, r, n, l," [-17] [306]
3) Eliminar Variable: ty usar literal: "ASS | KKK | SHT | 666" [-4] [302]
4) Establezca m = Math.random y use "m" en su lugar [-7] [296]
5) Use (m ( ) + "") en lugar de m (). toString () [-6] [290]
6) Eliminar innecesariamente ";" [-7] [283]

Versión antigua: Javascript - 327 caracteres

Estoy seguro de que hay espacio para mejorar ... Soy bastante inexperto en Code-golf:

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 */

Aquí hay una versión formateada, "Ungolfed" con nombres de variables / funciones "no minificados":

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();})()
/* */

Aquí está la versión "depuración", formateada:

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();
}
)()