読者です 読者をやめる 読者になる 読者になる

部屋を掃除したら漫画が沢山出てきたので書く日記

漫画とか合唱とかUNIXとかLinuxとかについて書く日記です。

新増沢方式で合唱コンクールの審査結果集計を行うプログラム

今週の水曜日から今日まで会社が休みだったので夏休みの宿題として「新増沢方式で合唱コンクールの審査結果集計を行うプログラム」をPerlで作ってみました。 githubの以下のリポジトリに公開してあります。bata64/ShinMasuzawa · GitHub 新増沢方式について…

gitとgistでどこでもプログラミング

自分の中でプログラミングをする機運が高まり、今年に入ってからコツコツと書いています。 で、こちらのtwitterまとめを読んでgistの事を知ったので、gistで管理してみようと思った次第です。 一番簡単な使い方としては githubにブラウザからアクセスしてロ…

perlで世界のナベアツ問題 その後

昨日突然、会社の同期にブログを見つけられて、二年前に書いたperlで世界のナベアツ問題について指摘を受けました。曰く、「こんなのワンライナーじゃねえ」はいその通りです。で、指摘してくれた同期によるお手本が以下の通り。アルゴリズムを替えずにこん…

perlで世界のナベアツ問題

昨日見つけた、世界のナベアツ問題を、perlでやってみました。perl初心者なので素直に書いたつもりです。 #!/usr/bin/perl for ($i = 1; $i <= 40; $i++) { $aho = $i % 3; $aho2 = $i; if ( $aho2 >= 10 ) { for ( $aho3 = 0; $aho2 > 10; $aho3++ ) { $aho…

bshで世界のナベアツ問題

以前やったFizzBazz問題の類似で、世界のナベアツ問題というものが。「3の倍数と3の付く数字だけアホになり、8の倍数だけ気持ち良くなる」というプログラムを作るというものです。この着想は素晴らしい! またまたスマートでもなく汎用性も無いですがbshで作…

Net::LDAPで検索

まんまこちらとCPANの説明に書いてある事しかしていないのですが、自分で書いて嬉しかったのでここに記しておきます。メールアカウント情報の検索です。 #!/usr/bin/perl use strict; use Net::LDAP; $\ = "\n"; if ($#ARGV != 0) { print "usage: $0 ID\n";…

FizzBuzz問題への解答・・・Bシェル

昨日書いたFizzBuzz問題をBシェルで書いてみました。 #!/bin/sh i=1; while [ $i -le 100 ];do Fizz=`expr $i % 3` Buzz=`expr $i % 5` FizzBuzz=`expr $i % 15` if [ $FizzBuzz -eq 0 ];then echo "FizzBuzz!" elif [ $Buzz -eq 0 ];then echo "Buzz!" elif…