kaka0809 发表于 2016-6-1 09:14:34

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

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 发表于 2016-6-4 13:07:36

:lol:lol:lol:lol

kaka0809 发表于 2016-6-6 15:55:23

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


会嘛:(:(:(:(:(:(

power_123 发表于 2016-6-6 17:30:55

leilei4908 发表于 2016-6-22 17:38:30

axlCmdRegister( "FindDuplicList" 'FindDuplicList)
axlSetAlias("dl" "FindDuplicList")
procedure( FindDuplicList(List)
prog((l num ll newList)
        l = makeTable("l" nil)
        num = 0
        foreach(obj List
                num = num + 1
                l = append1(l num)
        )
        ll = tableToList(l)
        newList = nil
        foreach(obj ll
                newList = append1(newList list(car(obj) length(cadr(obj)) cadr(obj)))
        )
        return(newList)
)

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

kaka0809 发表于 2016-6-27 08:45:38

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

thanks
页: [1]
查看完整版本: 求编这个程序！！！急！！！