Setting a comma in a dynamic list build

Question

Hi Guys, can anyone please help me with this issue. I want to
take a list and find the last characters in the list and then build
another list. With this other list I am having a problem not
dropping a comma after the last element.
I am expecting this y,n I am getting y,n,
Here is my code.
<cfset initials = " ">
<cfset george = "hary,martin">
<cfset showComma = false>
<Cfloop index="name" list="#george#" delimiters=",">
<cfset initials = initials & right(name,1) &
"<cfif showComma>,<cfelse><cfset showComma =
true></cfif>">
</cfloop>

Answer 1

Well, here is what I am trying to further do. I want to use
the ListToArray function and then use the ArrayMax function to find
the largest value. The problem is that when I have a character
other than a number in the Array the ArrayMax function throws an
error. Here is my code.
<cfset initials = "">
<cfset george = "pighg1,pighg2,PIGHGB">
<Cfloop index="name" list="#george#" delimiters=",">
<cfset initials = initials & right(name,1)>
<cfif ListLast(george) neq name><cfset initials =
initials & ","></cfif>
</cfloop>
<!---I would like to replace that b in the
ListcontainsNoCase function with a REGEX for [a-z] the problem is
that it throws an error --->
<cfset takeAway = ListContainsNoCase(initials, "b")>
<cfset temp2 = ListDeleteAt(initials, takeAway, ",")>
<cfdump var="#temp2#">
<cfset george2 = (ListToArray(temp2, ","))>
<cfset count = ArrayMax(george2)>
<cfdump var="#count#" >