Btukfyl

The essentials of the code below have been suggested at link.

As you can see, the command set to answerkey is working cumulatively. How to fix it?

documentclass{article}

usepackage{xparse,environ,enumitem}



ExplSyntaxOn

NewEnviron{randomList}[1]

 {

  keys_set:nn { lucas/randomlist } { #1 }

  lucas_randomlist:V BODY

 }

NewDocumentCommand{answerkey}{}

 {

  subsubsection*{Answer ~ key}

  begin{enumerate}[nosep]

  seq_map_inline:Nn g_lucas_randomlist_answers_seq { item ##1 }

  end{enumerate}

 }

NewDocumentCommand{correct}{}

 {

  seq_gput_right:Nx g_lucas_randomlist_answers_seq { use:c { @currentlabel } }

 }



keys_define:nn { lucas/randomlist }

 {

  environment .tl_set:N = l__lucas_randomlist_env_tl,

  seed .code:n = sys_gset_rand_seed:n { #1 },

 }



seq_new:N g_lucas_randomlist_answers_seq

cs_new_protected:Nn lucas_randomlist:n

 {

  seq_set_split:Nnn l__lucas_randomlist_items_seq { item } { #1 }

  % discard the empty first item

  seq_pop_left:NN l__lucas_randomlist_items_seq l_tmpa_tl

  seq_shuffle:N l__lucas_randomlist_items_seq

  begin{l__lucas_randomlist_env_tl}

  item seq_use:Nn l__lucas_randomlist_items_seq { item }

  end{l__lucas_randomlist_env_tl}

 }

cs_generate_variant:Nn lucas_randomlist:n { V }



ExplSyntaxOff



newlist{Testlist}{enumerate}{1}

setlist[Testlist]{label*=alph*.}

setlist{nosep}parindent=0pt% for more compact output





usepackage{pgfplotstable}

% from https://tex.stackexchange.com/a/445369/121799

newcommand*{ReadOutElement}[4]{%

    pgfplotstablegetelem{#2}{#3}of{#1}%

    let#4pgfplotsretval

}





usepackage{filecontents}

begin{filecontents*}{students.csv}

name 

{Student 1}

{Student 2}

{Student 3}

end{filecontents*}







begin{document}

pgfplotstableread{students.csv}loadedtable

pgfplotstablegetrowsof{loadedtable}

pgfmathtruncatemacro{rownum}{pgfplotsretval-1}

foreach X in {0,...,rownum}

{ReadOutElement{loadedtable}{X}{name}{tmpname}

xdefmyname{tmpname}



begin{center}

myname

end{center}



begin{enumerate} % outer list of exercises



item First exercise

  begin{randomList}[environment=Testlist]

  itemcorrect 1

  item 2

  item 3

  item 4

  item 5

  end{randomList}



item Second exercise

  begin{randomList}[environment=Testlist]

  item 1

  itemcorrect 2

  item 3

  item 4

  item 5

  end{randomList}







answerkey



}

end{document}