[求助]：根据表元素值进行规则命名的问题。

灯火

根据表元素值进行规则命名问题。

表元素个数2到4，值只能是三种排序字符串：(1)"Red，(2)"Green""，(3)"Yellow"

要求：
'("Red" "Green")                                      返回字符串 "红绿表"
'("Green" "Red")                                      返回字符串 "红绿表"
'("Red" "Red")                                          返回字符串 "双红表"
'("Red" "Green" "Green")                      返回字符串 "单红双绿表"
'("Green" "Green" "Red")                      返回字符串 "单红双绿表"
'("Yellow" "Green" "Red")                    返回字符串 "单红单绿单黄表"
'("Red" "Red" "Red")                             返回字符串 "全红表"
'("Yellow" "Green" "Yellow" "Green")    返回字符串 "双绿双黄表"
'("Red"  "Yellow" "Green" "Green")       返回字符串 "单红双绿单黄表"
("Green"  "Green" "Red" "Green")      返回字符串 "单红三绿表"
'("Green" "Green" "Green" "Green")  返回字符串 "全绿表"

这种算法应如何写？

陌生人

"单红双绿单黄表"
应该统一规则啊

blackspot

做归类统计函数，再按你规定的映射关系组合命名吧

灯火

最初由 陌生人 发布
[B]"单红双绿单黄表"
应该统一规则啊 [/B]

见顶楼补充

cy956

老灯啊，你把警察叔叔都搞晕了。想干嘛呢？

snsj

用(vl-remove (car lst))处理表后算出第一个的数量依次处理，最后对应用strcat合并对应中文，不知道这样是否能满足要求

eachy

("Green" "Green" "Red" "Green") -> ("绿" "绿" "红" "绿")->统计并转换字串

陌生人

如果有十几个，几十个，数字如何转？
23 ->二十三
16 ->十六

灯火

最初由 陌生人 发布
[B]如果有十几个，几十个，数字如何转？
23 ->二十三
16 ->十六 [/B]

见顶楼，表最多4个原子。最少两个。

LUCAS

奇怪陌生人  刪了貼子
附RGB.VLX

;|
(rgb '("Green" "Green" "Red" "Green")); ->"单红三绿表"
(rgb '("Green" "Green" "Green" "Green")); ->"全绿表"
(rgb '("Red" "Green")) ;-> "红绿表"
(rgb '("Yellow" "Green" "Yellow" "Green")); -> "双绿双黄表"
(rgb '("Red" "Green")); 返回字符串 "红绿表"
(rgb '("Green" "Red")); 返回字符串 "红绿表"
(rgb '("Red" "Red")); 返回字符串 "双红表"
(rgb '("Red" "Green" "Green")); 返回字符串 "单红双绿表"
(rgb '("Green" "Green" "Red")); 返回字符串 "单红双绿表"
(rgb '("Yellow" "Green" "Red")); 返回字符串 "单红单绿单黄表"
(rgb '("Red" "Red" "Red")); 返回字符串 "全红表"
(rgb '("Yellow" "Green" "Yellow" "Green")); 返回字符串 "双绿双黄表"
(rgb '("Red" "Yellow" "Green" "Green")); 返回字符串 "单红双绿单黄表"
(rgb '("Green" "Green" "Red" "Green")); 返回字符串 "单红三绿表"
(rgb '("Green" "Green" "Green" "Green")); 返回字符串 "全绿表"
|;

陌生人

因为能不能用，好坏都没个人吭一声，没意思：（

灯火

To 陌生人：下载你那个文件，试了几种情况很好。因为是VLX文件，失去了进一步探讨的兴趣。

此问题已经解决，因为不需要重复利用，没有编成函数，而是直接在程序内部用最笨的办法对比字符串得出个数。

补充一点：从陌生人的删帖才知道论坛可以删除跟贴，这项功能倒是不错。

aeo

如果怕排序，用布尔运算.
：(1)->"Red，(2)->"Green""，(4)->"Yellow

比如("Yellow" "Green" "Yellow" "red")  == 11 ,就能知道答案了.

而且很好扩充.

陌生人

ａｅｏ的方法很好