shoya140

#!/usr/bin/perl
use strict;
use warnings;

my $count = 0;
my $max = 12000;
my $upper = 1/2;
my $lower = 1/3;

for (my $i = 1; $i <= $max; $i++) {

shoya140

#encoding: utf-8

def is_perfect_number(number)
	sum = 0
	for i in  1 .. number
		if number % i == 0 then
			sum = sum + i
		end
	end
	if sum == 2 * number then 

shoya140

#include <stdio.h>

int main(void){

    int i, j, k;
    int count = 0;
    int max = 1000000;

    for (i = 2; i <= max; i++) {
        for (j = 1; j < i; j++) {