Post History
Japt v2.0a0, 18 bytes The r÷ can be removed if we can take an array of floats instead. T=V£*Xr÷Ãæv1)?ßT:U Try it T=V£*Xr÷Ãæv1)?ßT:U :Implicit input of integer U and 2D-array V T= ...
Answer
#2: Post edited
by
Shaggy
·
2021-08-05T14:29:15Z (about 3 years ago)
- # [Japt](https://github.com/ETHproductions/japt) v2.0a0, 18 [bytes](https://en.wikipedia.org/wiki/ISO/IEC_8859-1)
- The `r÷` can be removed if we can take an array of floats instead.
- T=V£*Xr÷Ãæv1)?ßT:U
[Try it](https://petershaggynoble.github.io/Japt-Interpreter/?v=2.0a0&code=VD1WoypYcvfD5nYxKT/fVDpV&input=NzIKW1s0NTUsMzNdLFsxMSwxM10sWzEsMTFdLFszLDddLFsxMSwyXSxbMSwzXV0)
- # [Japt](https://github.com/ETHproductions/japt) v2.0a0, 18 [bytes](https://en.wikipedia.org/wiki/ISO/IEC_8859-1)
- The `r÷` can be removed if we can take an array of floats instead.
- T=V£*Xr÷Ãæv1)?ßT:U
- [Try it](https://petershaggynoble.github.io/Japt-Interpreter/?v=2.0a0&code=VD1WoypYcvfD5nYxKT/fVDpV&input=NzIKW1s0NTUsMzNdLFsxMSwxM10sWzEsMTFdLFszLDddLFsxMSwyXSxbMSwzXV0)
- T=V£*Xr÷Ãæv1)?ßT:U :Implicit input of integer U and 2D-array V
- T= :Assign to variable T
- V£ : Map each X in V
- * : Multiply U by
- Xr÷ : X reduced by division
- Ã : End map
- æ : Get the first element that
- v1 : Is divisible by 1
- ) :End assignment
- ? :If truthy (not undefined)
- ßT :Recursive call with arguments U=T and V unchanged
- :U :Else return U
#1: Initial revision
by
Shaggy
·
2021-06-22T18:26:30Z (over 3 years ago)
# [Japt](https://github.com/ETHproductions/japt) v2.0a0, 18 [bytes](https://en.wikipedia.org/wiki/ISO/IEC_8859-1)
The `r÷` can be removed if we can take an array of floats instead.
T=V£*Xr÷Ãæv1)?ßT:U
[Try it](https://petershaggynoble.github.io/Japt-Interpreter/?v=2.0a0&code=VD1WoypYcvfD5nYxKT/fVDpV&input=NzIKW1s0NTUsMzNdLFsxMSwxM10sWzEsMTFdLFszLDddLFsxMSwyXSxbMSwzXV0)