aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-10-16 18:07:41 -07:00
parent 81fd053722
commit 52a6ef48dd
10248 changed files with 63654 additions and 6775 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Task/Find-the-missing-permutation/Scheme/find-the-missing-permutation-1.scm Normal file
View file

@ -0,0 +1,13 @@
(use gauche.collection)
(define *permutations*
'("ABCD" "CABD" "ACDB" "DACB" "BCDA" "ACBD" "ADCB" "CDAB"
"DABC" "BCAD" "CADB" "CDBA" "CBAD" "ABDC" "ADBC" "BDCA"
"DCBA" "BACD" "BADC" "BDAC" "CBDA" "DBCA" "DCAB"))
(apply string
(map (^c (car (find-min c :key length)))
(map group-collection
(apply map list (map string->list *permutations*)))))
"DBAC"

10
Task/Find-the-missing-permutation/Scheme/find-the-missing-permutation-2.scm Normal file
View file

@ -0,0 +1,10 @@
(use srfi-197)
(chain
*permutations*
(map string->list _)
(apply map list _)
(map group-collection _)
(map (lambda(xs) (find-min xs :key length)) _)
(map car _)
(apply string _))