Post History
Haskell, 62 bytes (\n->(scanl(*)1$cycle[5,2])!!(length$takeWhile(/=n)"IVXLCDM")) No import needed. It just uses standard Prelude functions. scanl(*)1$cycle[5,2] will give you the infinit...
Answer
#5: Post edited
by
Arpad Horvath
·
2023-10-26T05:50:13Z (7 months ago)
# Haskell, 56 bytes- ```
(scanl(*)1$cycle[5,2])!!(length$takeWhile(/=n)"IVXLCDM")- ```
No import needed.- ```
- scanl(*)1$cycle[5,2]
- ```
- will give you the infinite list of [1,5,10,50...]. With
- ```
- length$takeWhile(/=n)"IVXLCDM"
- ```
- you will get the index of the element you would like to look up.
- If you set
- ```haskell
- n='V'
- ```
- the length part will be 1, and the index 1 means the 2nd element, so you'll get 5.
- # Haskell, 62 bytes
- ```
- (\n->(scanl(*)1$cycle[5,2])!!(length$takeWhile(/=n)"IVXLCDM"))
- ```
- No import needed. It just uses standard Prelude functions.
- ```
- scanl(*)1$cycle[5,2]
- ```
- will give you the infinite list of [1,5,10,50...]. With
- ```
- length$takeWhile(/=n)"IVXLCDM"
- ```
- you will get the index of the element you would like to look up.
- If you set
- ```haskell
- n='V'
- ```
- the length part will be 1, and the index 1 means the 2nd element, so you'll get 5.
#4: Post edited
by
Arpad Horvath
·
2023-10-25T15:44:54Z (7 months ago)
- # Haskell, 56 bytes
- ```
- (scanl(*)1$cycle[5,2])!!(length$takeWhile(/=n)"IVXLCDM")
- ```
- ```
- scanl(*)1$cycle[5,2]
- ```
- will give you the infinite list of [1,5,10,50...]. With
- ```
- length$takeWhile(/=n)"IVXLCDM"
- ```
- you will get the index of the element you would like to look up.
- If you set
- ```haskell
- n='V'
- ```
- the length part will be 1, and the index 1 means the 2nd element, so you'll get 5.
- # Haskell, 56 bytes
- ```
- (scanl(*)1$cycle[5,2])!!(length$takeWhile(/=n)"IVXLCDM")
- ```
- No import needed.
- ```
- scanl(*)1$cycle[5,2]
- ```
- will give you the infinite list of [1,5,10,50...]. With
- ```
- length$takeWhile(/=n)"IVXLCDM"
- ```
- you will get the index of the element you would like to look up.
- If you set
- ```haskell
- n='V'
- ```
- the length part will be 1, and the index 1 means the 2nd element, so you'll get 5.
#3: Post edited
by
Arpad Horvath
·
2023-10-25T15:19:00Z (7 months ago)
- # Haskell, 56 bytes
```haskell- (scanl(*)1$cycle[5,2])!!(length$takeWhile(/=n)"IVXLCDM")
- ```
- If you set
- ```haskell
- n='V'
- ```
you'll get 5.
- # Haskell, 56 bytes
- ```
- (scanl(*)1$cycle[5,2])!!(length$takeWhile(/=n)"IVXLCDM")
- ```
- ```
- scanl(*)1$cycle[5,2]
- ```
- will give you the infinite list of [1,5,10,50...]. With
- ```
- length$takeWhile(/=n)"IVXLCDM"
- ```
- you will get the index of the element you would like to look up.
- If you set
- ```haskell
- n='V'
- ```
- the length part will be 1, and the index 1 means the 2nd element, so you'll get 5.
#2: Post edited
by
Arpad Horvath
·
2023-10-25T15:14:07Z (7 months ago)
- # Haskell, 56 bytes
- ```haskell
- (scanl(*)1$cycle[5,2])!!(length$takeWhile(/=n)"IVXLCDM")
```
- # Haskell, 56 bytes
- ```haskell
- (scanl(*)1$cycle[5,2])!!(length$takeWhile(/=n)"IVXLCDM")
- ```
- If you set
- ```haskell
- n='V'
- ```
- you'll get 5.
#1: Initial revision
by
Arpad Horvath
·
2023-10-25T15:11:18Z (7 months ago)
# Haskell, 56 bytes ```haskell (scanl(*)1$cycle[5,2])!!(length$takeWhile(/=n)"IVXLCDM") ```