| # What is the value of the first triangle number to have over five hundred divisors? | |
| use v6; | |
| my $numFactors = 500; | |
| my $sum = 0; | |
| for (1...*) -> $term { | |
| $sum += $term; | |
| my $factors = (1..floor(sqrt($sum))).grep( -> $x { $sum % $x == 0} ).elems * 2; | |
| $factors-- if floor(sqrt($sum)) == sqrt($sum); | |
| if $factors > $numFactors { |
| sub random-prime(:$digits) { | |
| repeat { $_ = (10**$digits .. (10**($digits+1))).pick } until .is-prime; | |
| return $_; | |
| } | |
| sub encrypt(:$message, :$key) { | |
| return expmod($message,$key[0],$key[1]) | |
| } | |
| sub decrypt(:$message, :$key) { |
This document describes the eventual intended semantics of await, lays out
some syntactic relief for working with supplies, considers the status of
channels, and proposes the end of the syntax formerly known as earliest,
winner, etc. - which I've never really liked. One further area to be
covered in a similar document to this is cancellation.
Feedback welcome! -- jnthn
| emilper@main:~/bin/nqp$ gcc -v | |
| Using built-in specs. | |
| COLLECT_GCC=gcc | |
| COLLECT_LTO_WRAPPER=/usr/lib/gcc/x86_64-linux-gnu/4.8/lto-wrapper | |
| Target: x86_64-linux-gnu | |
| Configured with: ../src/configure -v --with-pkgversion='Ubuntu 4.8.2-19ubuntu1' --with-bugurl=file:///usr/share/doc/gcc-4.8/README.Bugs --enable-languages=c,c++,java,go,d,fortran,objc,obj-c++ --prefix=/usr --program-suffix=-4.8 --enable-shared --enable-linker-build-id --libexecdir=/usr/lib --without-included-gettext --enable-threads=posix --with-gxx-include-dir=/usr/include/c++/4.8 --libdir=/usr/lib --enable-nls --with-sysroot=/ --enable-clocale=gnu --enable-libstdcxx-debug --enable-libstdcxx-time=yes --enable-gnu-unique-object --disable-libmudflap --enable-plugin --with-system-zlib --disable-browser-plugin --enable-java-awt=gtk --enable-gtk-cairo --with-java-home=/usr/lib/jvm/java-1.5.0-gcj-4.8-amd64/jre --enable-java-home --with-jvm-root-dir=/usr/lib/jvm/java-1.5.0-gcj-4.8-amd64 --with-jvm-jar-dir=/usr/lib/jvm-exports/java-1.5.0-gcj-4.8-amd64 --with- |
