Unique characters in each string: Difference between revisions

=={{header|FreeBASIC}}==

<lang freebasic>function count_char( s as string, c as string ) as uinteger

'count occurrences of character c in string s

dim as integer i, r = 0

for i = 1 to len(s)

if mid(s,i,1) = c then r += 1

next i

return r

end function

dim as string*20 dat(1 to 3) = {"1a3c52debeffd", "2b6178c97a938stf", "3ycxdb1fgxa2yz"}

dim as string c, uniq

dim as integer i,j

for i = 1 to len(dat(1)) 'go through the first string

c = mid(dat(1),i,1)

for j = 1 to 3

if count_char(dat(j), c)<>1 then goto nexti 'contrary to popular belief, gotos are not evil

next j

for j = 1 to len(uniq)-1 'if it occurs once in every string

if mid(uniq,j+1,1)>c then exit for 'find where we need to put it in alphabetical order

next j

uniq = left(uniq,j)+c+right(uniq,len(uniq)-j) 'and insert it into its correct place

nexti:

next i

print uniq</lang>

{{out}}<pre>123abc</pre>