- (defun c:tt ()"随机5位数,共100个"
- (setq lst (xyp-Get-Randoms 1 99999 100)
- lst (mapcar '(lambda (x) (xyp-0Num x 5)) lst)
- )
- (print lst)
- (princ)
- )
("11420" "58122" "04438" "67874" "10730" "74100" "16854" "95661" "59845" "23478" "45567" "67758" "50664" "72530" "94468" "16846" "38626" "60066" "02656" "65553" "07851" "29422" "50998" "79913" "27389" "58548" "01402" "23749" "87761" "10107" "32017" "95279" "17875" "80643" "02651" "65781" "07909" "53280" "15985" "66208" "99145" "44658" "66917" "72506" "94690" "16927" "39207" "60817" "82646" "25589" "47358" "90655" "33354" "76531" "98716" "31510" "03019" "28323" "52668" "99769" "24591" "48943" "95984" "43969" "68924" "93583" "63071" "10292" "34862" "59116" "29720" "57412" "93384" "29278" "01374" "25664" "73684" "42417" "89658" "13903" "38201" "85106" "09164" "33006" "57564" "26120" "94345" "18400" "75496" "15642" "45770" "71551" "42181" "02981" "83405" "67461" "25042" "72154" "95877" "19635")
|