Machine-Independent MDL for TOPS-20 and VAX.
[pdp10-muddle.git] / mim / mim / mimlib / list-hacks.msu
1 <PACKAGE "LIST-HACKS">
2 <ENTRY LSHUFFLE LSORT LREVERSE>
3
4 <SETG \1alshuffle-IMSUBR #IMSUBR [|AAABBNCOH\AEH_DAAAAAAGDAAAAAAGCCE_CCE_BMH]AAAAABABCCE_CCE_CCE_CCE_CCE_BMH[H`HQCCE_BMH[H`HKCCE_BMH[H`HECCE_CKFZA`H`H`HIDHAECOFYABBYCKDNAAAKDGD]COFYAAFUCCEHBADNAAAEBMAIDHAKCSEHBADIH`H]BKAIDGHWBMH]AAAAAACABMGHDQABBADMAAAUCOFYAAF[COFYAAFUBMH[H`HKBMH]AAAAAAACBLCIAAA]BLCAAAAYDQABBADMAAAUCOFYAAF[BIBNAAA]BKAICOFYABACBIAFBLCFAAA]BLD]AAAAAAGAAAAYBKB]B`EAAAAACOFYABAOBIAFCOFYABDIBLCEAAAMBLD[H`FCAAAIBQD]AAAABIB[H`CMD[AACOFYAAGABLCIAABEBLD[H`B_AABABQD]AAAABIB[H`BUD[AACOFYAAGABCDNAABEBLCIAABMBLCJAABUBLCIAAB]CKFZA`H`H`HIDHAECOFYABBYCTFNAAAMCKFNAAAMDMAMBADNAAAEBAB[H`AACOHYAAFOCKFZA`H`H`HIDHAECOFYABBYCKFNAAAEDGBOBADNAAB]BCDIH`H]BEDNAABUBFCJH`H]BCDNAABEBEDJH`H]CCFJH`H]CCFIH`H]BLCIAABMBLCJAABUBLCKAAAEDAE_BADNAAAEBCDIH`H]CCFIH`H]COFYAAFUDQAABADMAAA]BLCJAAAUCOFYAAF[COFYAAFUBLCIAAA]BLCAAAAYDQAABADMAABECOFYAAF[BOAIBMBNAAA]F^EHACEHAAAAAAABCKEHDGAUBADNAABUBBDNAAAEH`H]BADNAAAEBLCIAABUDAASBADNAABMBBDNAAAEH`H]BADNAAAEBLCIAABMBADNAAAUBLCIAAAEDAAAH`CKCOH\AEH_DAAAAAAKDAAAAAAODAAAAAAQBMH]AAAAABCBCCE_BMH[H`HYCCE_BMH[H_BCCCE_BMH[H_A]CCE_BMH[H_AWCCE_BMH[H_AQCCE_BMH[H_CWCCE_CCE_CCE_BMH]AAAAABGFCCE_CKFZA`H`H`HIDHAECOFYABBYCCEHBADNAAAEBMAIDHAKCSEHBADIH`H]BKAIDGHWF_F[H_B_DMAMBADNAAAEBAB[H^GOCOHYAAFOBMAHCKEHDMACCSEHHCEHCTEHBADNAAAECKEHDPAYCKFZA`H`H`HIDHAECOFYABBYBADIH`H]CTEHCKEHDPACDAHIBCDIH`H]CCFIH`H]BMH]AAAAAICCBMH]AAAAACGEBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBMHNAAAIBMHNAAAMBMHNAAAQBMHNAAAUBLCHAABUBLD[H^FMAABQBLCJAABECLHOH`HIDQADDAAAH`BMBMH[H`F[BMH]AAAAADAABMGNBMHNH`H]DMAEBNCNH`H]BMHNAABABMHNAABEBMHNAAAIBMHNAAAMBMHNAAAQBMHNAAAUBLCIAAAECLHOH`HIDQADDAAAH_HQBSD]AAAABLCJAABMBLCIAABECKFZA`H`H`HIDHAECOFYABBYCKFNAAAEDGBICKFNAABMDGAMBADNAABEBAB[H]HICOHYAAFOBADNAABMBBDNAABEH`H]BADNAAA]BAB[H]GSCOHYAAFOCKFNAABEDGBICKFNAABMDGAMBADNAAAEBAB[H]F[COHYAAFOBADNAABMBBDNAAAEH`H]BADNAAA]BAB[H]FECOHYAAFOAMDNABCBAAASDHBWCOFYAAFUBADNAAAEBMGQBMHIAAAEBCDNAABEBMGRBMHJAAAEDQACBADMAABMCOFYAAF[BOAIDHAQBADNAAAEBADIH`H]BLCIAAAEDAAAH`C]AMDNABCBAAAKDHBOCOFYAAFUBADNAAAEBMGQBMHIAAAEBCDNAABEBMGRBMHJAAAEDYACBABNAAAIBADNAAAMCOFYACCMFQD]ABCBDHCODAB_BADNAAAEBCAQBCDIAAAEBEDNAABEBGASBGDKAAAEBIABBACJBKADBLCJAABUBLCBAABQBCCLCOFYACGWBLCEAACEBLD[H]CIAACABLCLAACMBLCDAACICKEEDMAOBADNAAAEBCDIH`H]BLCJAAAEDAAMBADNAABEBCDIH`H]BLCJAABECCFIH`H]CKFNAAA]DGAMBLCIAAA]BLCIAABMDAAAH_FYBCDNAABMBDCIH`H]BLCIAABMDAAAH_FIAAAABMH[H\FICCE_CKFZA`H`H`HIDHAECOFYABBYCKFZA`H`H`HIDHAECOFYABBYCKFNAAAEDGAMBADNAAAMBAB[H\EACOHYAAFOBADNAAAEBCDIH`H]BBDNAAAMH`H]BLCJAAAEBLCIAAAMDAGKAAAA| lshuffle-IMSUBR LOG TIME RANDOM =? ]>
5 <SETG \1aLSHUFFLE #MSUBR [lshuffle-IMSUBR LSHUFFLE ("VALUE" LIST LIST "OPTIONAL"
6 FIX) 0]>
7 <SETG \1aLSORT #MSUBR [lshuffle-IMSUBR LSORT ("VALUE" LIST LIST "OPTIONAL" <OR
8 FALSE APPLICABLE> ANY) 464]>
9 <SETG \1aLREVERSE #MSUBR [lshuffle-IMSUBR LREVERSE ("VALUE" LIST LIST) 1128]>
10 <ENDPACKAGE>