Blog

Advent of Code 2020, Day 3

..##……. #…#…#.. .#….#..#. ..#.#…#.# .#…##..#. ..#.##….. .#.#.#….# .#……..# #.##…#… #…##….# .#..#…#.# ..##………##………##………##………##……. —> #…#…#..#…#…#..#…#…#..#…#…#..#…#…#.. .#….#..#..#….#..#..#….#..#..#….#..#..#….#..#. ..#.#…#.#..#.#…#.#..#.#…#.#..#.#…#.#..#.#…#.# .#…##..#..#…##..#..#…##..#..#…##..#..#…##..#. ..#.##…….#.##…….#.##…….#.##…….#.##….. —> .#.#.#….#.#.#.#….#.#.#.#….#.#.#.#….#.#.#.#….# .#……..#.#……..#.#……..#.#……..#.#……..# #.##…#…#.##…#…#.##…#…#.##…#…#.##…#… #…##….##…##….##…##….##…##….##…##….# .#..#…#.#.#..#…#.#.#..#…#.#.#..#…#.#.#..#…#.# —> .̲.##………##………##………##……. #…̲#…#..#…#…#..#…#…#..#…#…#.. .#….#̲..#..#….#..#..#….#..#..#….#..#. ..#.#…#.̲#..#.#…#.#..#.#…#.#..#.#…#.# .#…##..#..#̲…##..#..#…##..#..#…##..#. ..#.##…….#.#̲#…….#.##…….#.##….. .#.#.#….#.#.#.#..̲..#.#.#.#….#.#.#.#….# .#……..#.#……..#̲.#……..#.#……..# #.##…#…#.##…#…#.#̲#…#…#.##…#… #…##….##…##….##…##̲….##…##….# .#..#…#.#.#..#…#.#.#..#…#̲.#.#..#…#.#

Perl Weekly Challenge 88, Part 1

You are given an array of positive integers @N. Write a script to return an array @M where $M[i] is the product of all elements of @N except the index $N[i].

Perl Weekly Challenge 87, Part 1

You are given an unsorted array of integers @N. Write a script to find the longest consecutive sequence. Print 0 if none sequence found. Input: @N = (20, 30, 10, 40, 50) Output: 0

Perl Weekly Challenge 85, Part 2

You are given a positive integer $N. Write a script to find if it can be expressed as a ** b where a > 0 and b > 1. Print 1 if you succeed otherwise 0.

Loading…

Something went wrong. Please refresh the page and/or try again.


Follow My Blog

Get new content delivered directly to your inbox.