Duplicate Values in list

Try the ListDupes shown below:

> pp ListDupes
procedure(ListDupes(l)
if(l
if(member(car(l)
cdr(l)
)
cons(car(l)
ListDupes(remove(car(l)
cdr(l)
)
)
)
ListDupes(remove(car(l)
cdr(l)
)
)
)
)
)
nil
> ListDupes( A )
("A1" "BB1")
>

Hi David thanks for your reply..

I don't know how to apply yours code in this categories can you guide me please..

I have list of datas in list in that want to check only the "car(list)" duplicates in the list.

Example:

input file:

inpswap.lst:

116.14,AAA,AAA1
116.14,BBB,BBB1
130.14,AAA,AAA1
218.07,DDD,DDD1
112.1,DDD,DDD1
218.07,EEE,EEE1
116.14,FFF,FFF1

code :

procedure(swaplistkar()
 swapinp = infile("inpswap.lst")
 swaplst = nil
 swapdupnum = nil
 while(gets(swaplp swapinp)
   swaplp = car(parseString(swaplp "\n"))
  when(swaplp push(swaplp swaplst))
  )
  close(swapinp)
 foreach(swploop swaplst
  swpparse = car(parseString(swploop ","))
   
  
  ; The code I want to find duplicates
  
 )
)

my output want to be:

116.14,BBB,BBB1

218.07,EEE,EEE1

116.14,FFF,FFF1

Hi V !

You can try this code, it's repaired from your code and base on your result.

axlCmdRegister("swaplistkar" `swaplistkar)
procedure(swaplistkar()
swapinp = infile("inpswap.lst")
swaplst = nil
swapdupnum = nil
while(gets(swaplp swapinp)
swaplp = car(parseString(swaplp "\n"))
when(swaplp push(swaplp swaplst))
);end while
close(swapinp)

foreach(item swaplst
if(length(setof(el swaplst cdr(parseString(el ",")) == cdr(parseString(item ",")))) == 1 then
printf("%L\n", item)
);end if
);end foreach
)

Luan.

Hi luan,

Kindly thanks..

In this case how to find Duplicates of " 2nd element in list"

As like above case older we checked by 1 element in list now how to check 2nd element in list could you please tell me.

sample input:

116.14,AAA,AAA1
117.14,BBB,BBB1
130.14,AAA,AAA2
218.07,DDD,DDD1
112.1,DDD,DDD2
219.07,EEE,EEE1
114.14,FFF,FFF1

output :

130.14,AAA,AAA1

112.1,DDD,DDD2

Hi V!

I think you can replace row code  if(.... then     by  if(length(setof(el swaplst nth(1 parseString(el ",")) == nth(1 parseString(item ",")))) > 1 then

Luan.