fun <- ((횟수 * 합계) + 크리티컬횟수*5000)


로 계산해서 보내드렸어요~