Challenge 115
Table of Contents
Task 2 - Largest Multiple
You are given a list of positive integers (0-9), single digit.
Write a script to find the largest multiple of 2 that can be formed from the list.
Input: @N = (1, 0, 2, 6) Output: 6210 Input: @N = (1, 4, 2, 8) Output: 8412 Input: @N = (4, 1, 7, 6) Output: 7614
Raku
- Program: raku/ch-2.raku
@nums stores user entered numbers. The program terminates if there are
no even numbers in @nums. We get the least even number & then just
reverse the rest of the sorted list & join them.
@nums = @nums>>.Int.sort; die "No even number!" unless @nums.grep(* %% 2); my Int $least-even = @nums.splice(@nums.first(* %% 2, :k), 1).first; say (|@nums.reverse, $least-even).join;