3 golfed more.
source | link

Aheui (esotope), 93 9090 87 bytes

박밴내색뱅뿌망희박밴내색뱅뿌뮹
숙쌕빼서빼처소
타뿌싼때산쑥타뿌싼때산쑥희
매차뽀요@어@몽매차뽀요@어몽

Try it online!Try it online!

Nice, small, and fast code. Slightly golfed after writing explanation. I'll not change it, because it is just same code.

Explaination

Aheui is befunge-like language and (almost) every character of Aheui is operator. Part of character looks like ㅏ, ㅐ, ㅓ, ㅜ, ㅛ, ㅗ, ㅢ determines direction where next operator execute. is left-to-right, is right-to-left, is down-to-up, is up-to-down, is down-to-up, with skipping one character in two characters. is 'nothing' : keep same speed and direction.

박밴내

commend is store given number in current stack, commend is divide upmost two number in current stack. Both and store 2, so 박밴내 store 1 in current stack(default or nothing stack)

색뱅

commend change current stack. change stack to (or ) stack. commend with (like or ) get a number from STDIN. So 색뱅 get a number and store it in stack 악(ㄱ).

뿌
처

commend duplicate upmost value in current stack, and commend pop value from current stack and see if it is 0. If it is, it go to opposite direction from indicate : in here right-to-left. If it is not, it go to direction where indicate. So 뿌(\n)처 see if input is 0 or not, and go right if zero, and go left if not.

망희
소

If input is zero, here is evaluated. (from commend) First, change current stack to nothing(). commend is pop, and if used with it print value as number. halts program. So it print 1 and halt.

숙쌕빼서빼
타뿌싼때산쌕꾸
매차뽀요애애어

enter image description here

Look at this image for help. Here is main loop. is subtraction, and is multiply. move value from current stack to selected one.

Put it shortly, it get number from nothing stack(or get 1), subtract to find if it is zero, and if not zero multiply and restart loop. And if zero, go to rightmost place of code with popping one number.

Print number, then pointer go to : halt.

In one image :

AheuiChem image translated

SEL is select, MOV is move, DUP is duplicate. This image is produced by AheuiChem, Aheui development tool in Korean. Translated with paint tool of windows.

Aheui (esotope), 93 90 bytes

박밴내색뱅뿌망희
숙쌕빼서빼처소
타뿌싼때산쑥
매차뽀요@어@몽

Try it online!

Nice, small, and fast code. Slightly golfed after writing explanation. I'll not change it, because it is just same code.

Explaination

Aheui is befunge-like language and (almost) every character of Aheui is operator. Part of character looks like ㅏ, ㅐ, ㅓ, ㅜ, ㅛ, ㅗ, ㅢ determines direction where next operator execute. is left-to-right, is right-to-left, is down-to-up, is up-to-down, is down-to-up, with skipping one character in two characters. is 'nothing' : keep same speed and direction.

박밴내

commend is store given number in current stack, commend is divide upmost two number in current stack. Both and store 2, so 박밴내 store 1 in current stack(default or nothing stack)

색뱅

commend change current stack. change stack to (or ) stack. commend with (like or ) get a number from STDIN. So 색뱅 get a number and store it in stack 악(ㄱ).

뿌
처

commend duplicate upmost value in current stack, and commend pop value from current stack and see if it is 0. If it is, it go to opposite direction from indicate : in here right-to-left. If it is not, it go to direction where indicate. So 뿌(\n)처 see if input is 0 or not, and go right if zero, and go left if not.

망희
소

If input is zero, here is evaluated. (from commend) First, change current stack to nothing(). commend is pop, and if used with it print value as number. halts program. So it print 1 and halt.

숙쌕빼서빼
타뿌싼때산쌕꾸
매차뽀요애애어

enter image description here

Look at this image for help. Here is main loop. is subtraction, and is multiply. move value from current stack to selected one.

Put it shortly, it get number from nothing stack(or get 1), subtract to find if it is zero, and if not zero multiply and restart loop. And if zero, go to rightmost place of code with popping one number.

Print number, then pointer go to : halt.

In one image :

AheuiChem image translated

SEL is select, MOV is move, DUP is duplicate. This image is produced by AheuiChem, Aheui development tool in Korean. Translated with paint tool of windows.

Aheui (esotope), 93 90 87 bytes

박밴내색뱅뿌뮹
숙쌕빼서빼처소
타뿌싼때산쑥희
매차뽀요@어몽

Try it online!

Nice, small, and fast code. Slightly golfed after writing explanation. I'll not change it, because it is just same code.

Explaination

Aheui is befunge-like language and (almost) every character of Aheui is operator. Part of character looks like ㅏ, ㅐ, ㅓ, ㅜ, ㅛ, ㅗ, ㅢ determines direction where next operator execute. is left-to-right, is right-to-left, is down-to-up, is up-to-down, is down-to-up, with skipping one character in two characters. is 'nothing' : keep same speed and direction.

박밴내

commend is store given number in current stack, commend is divide upmost two number in current stack. Both and store 2, so 박밴내 store 1 in current stack(default or nothing stack)

색뱅

commend change current stack. change stack to (or ) stack. commend with (like or ) get a number from STDIN. So 색뱅 get a number and store it in stack 악(ㄱ).

뿌
처

commend duplicate upmost value in current stack, and commend pop value from current stack and see if it is 0. If it is, it go to opposite direction from indicate : in here right-to-left. If it is not, it go to direction where indicate. So 뿌(\n)처 see if input is 0 or not, and go right if zero, and go left if not.

망희
소

If input is zero, here is evaluated. (from commend) First, change current stack to nothing(). commend is pop, and if used with it print value as number. halts program. So it print 1 and halt.

숙쌕빼서빼
타뿌싼때산쌕꾸
매차뽀요애애어

enter image description here

Look at this image for help. Here is main loop. is subtraction, and is multiply. move value from current stack to selected one.

Put it shortly, it get number from nothing stack(or get 1), subtract to find if it is zero, and if not zero multiply and restart loop. And if zero, go to rightmost place of code with popping one number.

Print number, then pointer go to : halt.

In one image :

AheuiChem image translated

SEL is select, MOV is move, DUP is duplicate. This image is produced by AheuiChem, Aheui development tool in Korean. Translated with paint tool of windows.

2 added 98 characters in body
source | link

Aheui (esotope), 9393 90 bytes

박밴내색뱅뿌망희
숙쌕빼서빼처소
타뿌싼때산쌕꾸타뿌싼때산쑥
매차뽀요애워어몽매차뽀요@어@몽

Try it online!Try it online!

Nice, small, and fast code. Slightly golfed after writing explanation. I'll not change it, because it is just same code.

Explaination

Aheui is befunge-like language and (almost) every character of Aheui is operator. Part of character looks like ㅏ, ㅐ, ㅓ, ㅜ, ㅛ, ㅗ, ㅢ determines direction where next operator execute. is left-to-right, is right-to-left, is down-to-up, is up-to-down, is down-to-up, with skipping one character in two characters. is 'nothing' : keep same speed and direction.

박밴내

commend is store given number in current stack, commend is divide upmost two number in current stack. Both and store 2, so 박밴내 store 1 in current stack(default or nothing stack)

색뱅

commend change current stack. change stack to (or ) stack. commend with (like or ) get a number from STDIN. So 색뱅 get a number and store it in stack 악(ㄱ).

뿌
처

commend duplicate upmost value in current stack, and commend pop value from current stack and see if it is 0. If it is, it go to opposite direction from indicate : in here right-to-left. If it is not, it go to direction where indicate. So 뿌(\n)처 see if input is 0 or not, and go right if zero, and go left if not.

망희
소

If input is zero, here is evaluated. (from commend) First, change current stack to nothing(). commend is pop, and if used with it print value as number. halts program. So it print 1 and halt.

숙쌕빼서빼
타뿌싼때산쌕꾸
매차뽀요애애어

enter image description here

Look at this image for help. Here is main loop. is subtraction, and is multiply. move value from current stack to selected one.

Put it shortly, it get number from nothing stack(or get 1), subtract to find if it is zero, and if not zero multiply and restart loop. And if zero, go to rightmost place of code with popping one number.

Print number, then pointer go to : halt.

In one image :

AheuiChem image translated

SEL is select, MOV is move, DUP is duplicate. This image is produced by AheuiChem, Aheui development tool in Korean. Translated with paint tool of windows.

Aheui (esotope), 93 bytes

박밴내색뱅뿌망희
숙쌕빼서빼처소
타뿌싼때산쌕꾸
매차뽀요애워어몽

Try it online!

Nice, small, and fast code.

Explaination

Aheui is befunge-like language and (almost) every character of Aheui is operator. Part of character looks like ㅏ, ㅐ, ㅓ, ㅜ, ㅛ, ㅗ, ㅢ determines direction where next operator execute. is left-to-right, is right-to-left, is down-to-up, is up-to-down, is down-to-up, with skipping one character in two characters. is 'nothing' : keep same speed and direction.

박밴내

commend is store given number in current stack, commend is divide upmost two number in current stack. Both and store 2, so 박밴내 store 1 in current stack(default or nothing stack)

색뱅

commend change current stack. change stack to (or ) stack. commend with (like or ) get a number from STDIN. So 색뱅 get a number and store it in stack 악(ㄱ).

뿌
처

commend duplicate upmost value in current stack, and commend pop value from current stack and see if it is 0. If it is, it go to opposite direction from indicate : in here right-to-left. If it is not, it go to direction where indicate. So 뿌(\n)처 see if input is 0 or not, and go right if zero, and go left if not.

망희
소

If input is zero, here is evaluated. (from commend) First, change current stack to nothing(). commend is pop, and if used with it print value as number. halts program. So it print 1 and halt.

숙쌕빼서빼
타뿌싼때산쌕꾸
매차뽀요애애어

enter image description here

Look at this image for help. Here is main loop. is subtraction, and is multiply. move value from current stack to selected one.

Put it shortly, it get number from nothing stack(or get 1), subtract to find if it is zero, and if not zero multiply and restart loop. And if zero, go to rightmost place of code with popping one number.

Print number, then pointer go to : halt.

In one image :

AheuiChem image translated

SEL is select, MOV is move, DUP is duplicate. This image is produced by AheuiChem, Aheui development tool in Korean. Translated with paint tool of windows.

Aheui (esotope), 93 90 bytes

박밴내색뱅뿌망희
숙쌕빼서빼처소
타뿌싼때산쑥
매차뽀요@어@몽

Try it online!

Nice, small, and fast code. Slightly golfed after writing explanation. I'll not change it, because it is just same code.

Explaination

Aheui is befunge-like language and (almost) every character of Aheui is operator. Part of character looks like ㅏ, ㅐ, ㅓ, ㅜ, ㅛ, ㅗ, ㅢ determines direction where next operator execute. is left-to-right, is right-to-left, is down-to-up, is up-to-down, is down-to-up, with skipping one character in two characters. is 'nothing' : keep same speed and direction.

박밴내

commend is store given number in current stack, commend is divide upmost two number in current stack. Both and store 2, so 박밴내 store 1 in current stack(default or nothing stack)

색뱅

commend change current stack. change stack to (or ) stack. commend with (like or ) get a number from STDIN. So 색뱅 get a number and store it in stack 악(ㄱ).

뿌
처

commend duplicate upmost value in current stack, and commend pop value from current stack and see if it is 0. If it is, it go to opposite direction from indicate : in here right-to-left. If it is not, it go to direction where indicate. So 뿌(\n)처 see if input is 0 or not, and go right if zero, and go left if not.

망희
소

If input is zero, here is evaluated. (from commend) First, change current stack to nothing(). commend is pop, and if used with it print value as number. halts program. So it print 1 and halt.

숙쌕빼서빼
타뿌싼때산쌕꾸
매차뽀요애애어

enter image description here

Look at this image for help. Here is main loop. is subtraction, and is multiply. move value from current stack to selected one.

Put it shortly, it get number from nothing stack(or get 1), subtract to find if it is zero, and if not zero multiply and restart loop. And if zero, go to rightmost place of code with popping one number.

Print number, then pointer go to : halt.

In one image :

AheuiChem image translated

SEL is select, MOV is move, DUP is duplicate. This image is produced by AheuiChem, Aheui development tool in Korean. Translated with paint tool of windows.

1
source | link

Aheui (esotope), 93 bytes

박밴내색뱅뿌망희
숙쌕빼서빼처소
타뿌싼때산쌕꾸
매차뽀요애워어몽

Try it online!

Nice, small, and fast code.

Explaination

Aheui is befunge-like language and (almost) every character of Aheui is operator. Part of character looks like ㅏ, ㅐ, ㅓ, ㅜ, ㅛ, ㅗ, ㅢ determines direction where next operator execute. is left-to-right, is right-to-left, is down-to-up, is up-to-down, is down-to-up, with skipping one character in two characters. is 'nothing' : keep same speed and direction.

박밴내

commend is store given number in current stack, commend is divide upmost two number in current stack. Both and store 2, so 박밴내 store 1 in current stack(default or nothing stack)

색뱅

commend change current stack. change stack to (or ) stack. commend with (like or ) get a number from STDIN. So 색뱅 get a number and store it in stack 악(ㄱ).

뿌
처

commend duplicate upmost value in current stack, and commend pop value from current stack and see if it is 0. If it is, it go to opposite direction from indicate : in here right-to-left. If it is not, it go to direction where indicate. So 뿌(\n)처 see if input is 0 or not, and go right if zero, and go left if not.

망희
소

If input is zero, here is evaluated. (from commend) First, change current stack to nothing(). commend is pop, and if used with it print value as number. halts program. So it print 1 and halt.

숙쌕빼서빼
타뿌싼때산쌕꾸
매차뽀요애애어

enter image description here

Look at this image for help. Here is main loop. is subtraction, and is multiply. move value from current stack to selected one.

Put it shortly, it get number from nothing stack(or get 1), subtract to find if it is zero, and if not zero multiply and restart loop. And if zero, go to rightmost place of code with popping one number.

Print number, then pointer go to : halt.

In one image :

AheuiChem image translated

SEL is select, MOV is move, DUP is duplicate. This image is produced by AheuiChem, Aheui development tool in Korean. Translated with paint tool of windows.