From d4acaa43347fd887016e6bf8d945fb7059193c54 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 28 Jan 2022 09:26:41 -0800 Subject: [PATCH] unicode.flags.images: use combinations-with-replacement --- extra/unicode/flags/images/images.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/unicode/flags/images/images.factor b/extra/unicode/flags/images/images.factor index 5695648823..5dc86f4126 100644 --- a/extra/unicode/flags/images/images.factor +++ b/extra/unicode/flags/images/images.factor @@ -5,7 +5,7 @@ ranges sequences sequences.extras strings ui.text unicode.flags ; IN: unicode.flags.images MEMO: valid-flags ( -- flags ) - CHAR: a CHAR: z [a..b] 2 + CHAR: a CHAR: z [a..b] 2 all-combinations-with-replacement [ >string unicode>flag ] [ monospace-font swap string>image drop dim>> first2 = ] map-filter ; -- 2.34.1