求编这个程序！！！急！！！

kaka0809

FindDuplicList
FindDuplicList( l_list
)
Description
找出某list有重複之元素以及該元素之數量。
Arguments
l_list 一個list。
Value Returned
list 重複元素之清單list，每個元素亦為一list，car(list)為重複之元素，nth(1 list) 為該元素之數量list，nth(2 list) 為該元素之重複index位置list。
nil 無重複元素或第一參數非list。
Example
¯ FindDuplicList(list("a1" "a4" "a3" "a3" "a6" "a5" "a4" "a2" "a3"))
ð (("a3" 3 (2 3 8)) ("a4" 2 (1 6))) ß 元素 "a3" 有重複，數量共為3個，其重複index位置list (2 3 8)；及 "a4" 有重複，數量共為2個，其重複index位置list (1 6))。
¯ FindDuplicList(list("a1" "a4" "a3" "a6" "a5" "a2"))
ð nil ß 無重複元素。

ctq1235

kaka0809

ctq1235 发表于 2016-6-4 13:07

会嘛

leilei4908

1. axlCmdRegister( "FindDuplicList" 'FindDuplicList)
   
2. axlSetAlias("dl" "FindDuplicList")
   
3. procedure( FindDuplicList(List)
   
4. prog((l num ll newList)
   
5.         l = makeTable("l" nil)
   
6.         num = 0
   
7.         foreach(obj List
   
8.                 num = num + 1
   
9.                 l[obj] = append1(l[obj] num)
   
10.         )
    
11.         ll = tableToList(l)
    
12.         newList = nil
    
13.         foreach(obj ll
    
14.                 newList = append1(newList list(car(obj) length(cadr(obj)) cadr(obj)))
    
15.         )
    
16.         return(newList)
    
17. )

复制代码

你要求的格式挺奇葩的。。凑合着用吧

kaka0809

leilei4908 发表于 2016-6-22 17:38
你要求的格式挺奇葩的。。凑合着用吧

thanks