dsd1-10 / dsd-08=skill / two_1

procedure(nux(list n d)

prog((len)

len = length(list)

new_list=list()

for(i 0 len-1

if((i==n) then

new_list=append1(new_list d)

else

new_list=append1(new_list nth(i list))

)

)

return(new_list)

)

)

procedure(pingvin(list)

prog((min len buf max)

len = length(list)

for(i 0 len-1

for(j 0 len-1-i

if((nth(len-i-1 list)>nth(j list)) then

buf=nth(j list)

list=nux(list j nth(len-i-1 list))

list=nux(list len-i-1 buf)

)

)

)

println(list)

return(t)

)

)