Problem 5

Ruby 

1puts"#{(1..20).reduce(1, :lcm)}"

Perl 6 

1say [lcm] ( 1 .. 20 );