Lấy cảm hứng từ bài đăng di cư xấu này .

Người đứng đầu an ninh tại công ty của bạn quan tâm đến hệ thống tạo mã PIN của bạn sau khi nó cung cấp cho anh ta 12345. Anh ấy cũng không thực sự đánh giá cao trò đùa Spaceballs mà bạn đã trả bằng chi phí của anh ấy, vì vậy bạn đã được ủy quyền để viết lại trình tạo mã PIN. Vì nó phải phù hợp với một số phần cứng đặc biệt, bạn phải làm cho nó nhỏ nhất có thể.

Nhiệm vụ của bạn

• Bạn lấy hai đầu vào - # mã PIN và kích thước mã PIN bằng chữ số.
• Tạo ngẫu nhiên số lượng mã PIN có kích thước được chỉ định và in ra.
• Tất cả các mã PIN hợp lệ có kích thước phải có thể được in ra, ngay cả khi chúng không có khả năng thống nhất.

• Tuy nhiên, có một số hạn chế đối với mã PIN - đây là những hạn chế không hợp lệ:

  1. Nếu tất cả các cặp có cùng một chữ số: 114422(Lưu ý: điều này rõ ràng sẽ bao gồm tất cả các mã PIN cùng một chữ số).
  2. Mã PIN ngày càng tăng (mod 10) : 246802.
  3. Tất cả các nhóm 3 là dòng vật lý trên bàn phím của 1 2 3;4 5 6;7 8 9;bksp 0 enter;: 147369.
  4. Mã PIN hoàn toàn có thể được chia thành các nhóm từ quy tắc 1 và quy tắc 3.

• Đây là mã golf , vì vậy mã ngắn nhất tính bằng byte sẽ thắng!

Bình thường, 120 byte

Arz7VGJ1WJK%"%0*d",HO-^TH1=J|q1l{m%-F_vMcd1T.:K2u|GHmu|GHm?qlk2:k"(.)\\1"0?qlk3}k+++=bcS"123456789"3_Mb.Tb_M.TbZdZ./K0)K

Hình tôi nên thêm một thực hiện thực sự sau đó. Tạo số ngẫu nhiên cho đến khi tìm thấy một số đáp ứng tất cả các yêu cầu. Có lẽ có thể được cải thiện rất nhiều!

Phiên bản trực tuyến

Perl 5, 244

Bắt đầu với việc tạo số ngẫu nhiên cho kích thước đã cho.
Và chỉ in những thứ không đáp ứng các hạn chế.

Tìm một giải pháp cho các dòng bàn phím (không có kết hợp mã hóa cứng) thật thú vị.

($k,$l)=@ARGV;$m=10**$l-1;while($n<$k){$_=sprintf("%0".$l."d",int(rand($m)));@N=split//,$_;pop@N;$i=$d=0;while(++$i<@N&&$d<1){$d=$N[$i-1]<=>$N[$i]}$b=$_;$b=~s|\d|@A=split//,$';2*$A[0]-$&-$A[1]==0|eg;if((!m/(\d)\1/)&$b>0&$d>=0){$n++;print$_.$/}}

Kiểm tra

$ perl gen_pins.pl 10 5
98121
15931
69042
93730
83458
25312
24601
49468
49490
67012