09/07/28 00:32:46
>>572
nil は [] で代用した
-- Haskell
import Data.List (delete)
t572 :: (Ord a) => [a] -> [a]
t572 xs | length xs < 3 = []
| otherwise = delete (maximum xs) xs
main = print $ t572 [1,3,2]
09/07/28 00:32:46
>>572
nil は [] で代用した
-- Haskell
import Data.List (delete)
t572 :: (Ord a) => [a] -> [a]
t572 xs | length xs < 3 = []
| otherwise = delete (maximum xs) xs
main = print $ t572 [1,3,2]