diff options
| -rwxr-xr-x | challenge-123/luc65r/raku/ch-2.raku | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/challenge-123/luc65r/raku/ch-2.raku b/challenge-123/luc65r/raku/ch-2.raku new file mode 100755 index 0000000000..40af05942a --- /dev/null +++ b/challenge-123/luc65r/raku/ch-2.raku @@ -0,0 +1,8 @@ +#!/usr/bin/env raku + +unit sub MAIN(*@coordinate where +* == 8); + +my Complex @pts = map { Complex.new($^x, $^y) }, @coordinate; +my Complex $center = @pts.sum / 4; +my Complex $v = @pts[0] - $center; +say +so @pts ≡ ($v, -$v, $v.conj, -$v.conj) »+» $center; |