Argthtjtr

begin{tikzcd}

3 arrow[dr] & \

4 arrow[r] & 2arrow[dr] & \

1

end{tikzcd}

could you help me? how do yo writting latex?

Like this?

documentclass[margin=1cm]{standalone}

usepackage{amsmath}     

usepackage{tikz,tikz-cd}

begin{document}



begin{tikzcd}

3 arrow[rd] &  &  \

4 arrow[r] &

begin{array}{c}

2\

3  4

end{array}   

arrow[rd] &  \

 &  & 

 begin{array}{c}

1\

2\

3 4

end{array}   

end{tikzcd}

end{document}

You can set the numbers in an array, but in footnotesize, with reduced interline spacing. Better to define a suitable command for it.

With between origins, the south-east bound arrows will be aligned.

documentclass{article}

usepackage{amsmath,tikz-cd}



newcommand{stack}[1]{%

  mbox{%

    footnotesize

    renewcommand{arraystretch}{0.75}%

    $begin{array}{@{}c@{}}#1end{array}$%

  }%

}



begin{document}



[

begin{tikzcd}[row sep={4em,between origins},column sep={4em,between origins}]

stack{3} arrow[dr] \

stack{4} arrow[r] &

stack{2\3;4} arrow[dr] \

&& stack{1\2\3;4}

end{tikzcd}

qquad

begin{tikzcd}[row sep={4em,between origins},column sep={4em,between origins}]

stack{1\2\3} arrow[dr] \

stack{1\2\4} arrow[r] &

stack{1\2} arrow[dr] \

&& stack{1}

end{tikzcd}

]



end{document}

If you want Times-like fonts, use newtx:

documentclass{article}

usepackage{amsmath,tikz-cd}

usepackage{newtxtext,newtxmath}



tikzcdset{arrow style=math font}



newcommand{stack}[1]{%

  mbox{%

    footnotesize

    renewcommand{arraystretch}{0.75}%

    $begin{array}{@{}c@{}}#1end{array}$%

  }%

}



begin{document}



[

begin{tikzcd}[row sep={4em,between origins},column sep={4em,between origins}]

stack{3} arrow[dr] \

stack{4} arrow[r] &

stack{2\3;4} arrow[dr] \

&& stack{1\2\3;4}

end{tikzcd}

qquad

begin{tikzcd}[row sep={4em,between origins},column sep={4em,between origins}]

stack{1\2\3} arrow[dr] \

stack{1\2\4} arrow[r] &

stack{1\2} arrow[dr] \

&& stack{1}

end{tikzcd}

]



end{document}

Your picture seems to have been produced with Xy-pic (but the quality is inferior and the arrow tips very ugly).

documentclass{article}

usepackage{amsmath}

usepackage[all]{xy}

usepackage{newtxtext,newtxmath}



newcommand{stack}[1]{%

  mbox{%

    footnotesize

    renewcommand{arraystretch}{0.75}%

    $begin{array}{@{}c@{}}#1end{array}$%

  }%

}



begin{document}



[

xymatrix@R-1pc{

  stack{3} ar[dr] \

  stack{4} ar[r] &

  stack{2\3;4} ar[dr] \

  && stack{1\2\3;4}

}

qquad

xymatrix@R-1pc{

  stack{1\2\3} ar[dr] \

  stack{1\2\4} ar[r] &

  stack{1\2} ar[dr] \

  && stack{1}

}

]



end{document}