SE勉強会にいってない

study

とりあえず宿題をやろう．

#!/usr/bin/env perl
# -*- mode: perl; coding: utf-8; -*-

use strict;
use warnings;
use utf8;
use open qw(:utf8);
use open qw(:std);

my $def = {
    15 => q{かしもソフトウェア}, # 15 = 3 * 5
     5 => q{ソフトウェア},
     3 => q{かしも},
};

foreach my $number (1..100) {
    my $str = $number;
    foreach my $operand (reverse sort {$a <=> $b} keys %$def) {
        if ($number % $operand == 0) {
            $str = $def->{$operand};
            last;
        }
    }
    print $str, qq{\n};
}

<?php # -*- mode: php; coding: utf-8; -*-
function hw() {
    $def = array(
                 15 => 'かしもソフトウェア', # 15 = 3 * 5
                 3 => 'かしも',
                 5 => 'ソフトウェア',
                 );
    krsort($def, SORT_NUMERIC);
    foreach (range(1, 100) as $number) {
        $str = $number;
        foreach ($def as $operand => $value) {
            if ($number % $operand == 0) {
                $str = $value;
                break;
            } 
        }
        print "$str\n";
    }
}
hw();
?>

.emacs に php-mode でのインデントの設定を追加した．

(add-hook 'php-mode-hook
	  '(lambda ()
	     (define-abbrev php-mode-abbrev-table "ex" "extends")
	     (setq indent-tabs-mode nil)
	     (setq c-basic-offset 4)
	     ))

あり？こっちだけでいいのかな？

(setq php-mode-force-pear t)