02. リストデータの組み合わせ

#!/usr/bin/tcsh -f

### Input Data ######################

# メーカー名リスト

set mTvMakerList = ( "TOSHIBA" "SONY" "PANASONIC" )

# メーカーごとの型番リスト

set mTsbTvList = ( "T1" "T2" "T3" )

set mSnyTvList = ( "S1" "S2" "S3" )

set mPnaTvList = ( "P1" "P2" "P3" )

# 各型番の説明

set mT1Desc = "Toshiba T1 TV desu"

set mT2Desc = "Toshiba T2 TV desu"

set mT3Desc = "Toshiba T3 TV desu"

set mS1Desc = "Sony S1 TV desu"

set mS2Desc = "Sony S2 TV desu"

set mS3Desc = "Sony S3 TV desu"

set mP1Desc = "Panasonic P1 TV desu"

set mP2Desc = "Panasonic P2 TV desu"

set mP3Desc = "Panasonic P3 TV desu"

### run ##########################

foreach maker ( $mTvMakerList )

  echo "--- $maker"

  if ( $maker == "TOSHIBA" ) then

    set mTvList = ( $mTsbTvList )

    set mDesc   = ( "$mT1Desc" "$mT2Desc" "$mT3Desc" )

  else if ( $maker == "SONY" ) then

    set mTvList = ( $mSnyTvList )

    set mDesc   = ( "$mS1Desc" "$mS2Desc" "$mS3Desc" )

  else if ( $maker == "PANASONIC" ) then

    set mTvList = ( $mPnaTvList )

    set mDesc   = ( "$mP1Desc" "$mP2Desc" "$mP3Desc" )

  endif

  @ index = 1

  foreach name ( $mTvList )

    echo " +-$name"

    echo " | +-$mDesc[$index]"

    @ index ++

  end

end

--- TOSHIBA

 +-T1

 | +-Toshiba T1 TV desu

 +-T2

 | +-Toshiba T2 TV desu

 +-T3

 | +-Toshiba T3 TV desu

--- SONY

 +-S1

 | +-Sony S1 TV desu

 +-S2

 | +-Sony S2 TV desu

 +-S3

 | +-Sony S3 TV desu

--- PANASONIC

 +-P1

 | +-Panasonic P1 TV desu

 +-P2

 | +-Panasonic P2 TV desu

 +-P3

 | +-Panasonic P3 TV desu

#!/usr/bin/perl

use warnings;

### Input Data ###########################

# メーカー名の配列

@mTvMakerList = ("TOSHIBA","SONY","PANASONIC");

# 各メーカーの機種名配列

@mTsbTvList = ("T1","T2","T3");

@mSnyTvList = ("S1","S2","S3");

@mPnaTvList = ("P1","P2","P3");

# 各機種の説明

$mT1Desc = "Toshiba T1 TV desu";

$mT2Desc = "Toshiba T2 TV desu";

$mT3Desc = "Toshiba T3 TV desu";

$mS1Desc = "Sony S1 TV desu";

$mS2Desc = "Sony S2 TV desu";

$mS3Desc = "Sony S3 TV desu";

$mP1Desc = "Panasonic P1 TV desu";

$mP2Desc = "Panasonic P2 TV desu";

$mP3Desc = "Panasonic P3 TV desu";

### Create DB #############################

# ハッシュ定義。makerというキーに、メーカー名配列のリファレンスを格納

$mTvDB{maker} = \@mTvMakerList;

# 各メーカー名のキーに、機種名配列のリファレンスを格納

$mTvDB{$mTvMakerList[0]} = \@mTsbTvList;

$mTvDB{$mTvMakerList[1]} = \@mSnyTvList;

$mTvDB{$mTvMakerList[2]} = \@mPnaTvList;

# メーカー名＋機種名のキーに、説明値を格納

$mTvDB{$mTvMakerList[0],$mTsbTvList[0]} = $mT1Desc;

$mTvDB{$mTvMakerList[0],$mTsbTvList[1]} = $mT2Desc;

$mTvDB{$mTvMakerList[0],$mTsbTvList[2]} = $mT3Desc;

$mTvDB{$mTvMakerList[1],$mSnyTvList[0]} = $mS1Desc;

$mTvDB{$mTvMakerList[1],$mSnyTvList[1]} = $mS2Desc;

$mTvDB{$mTvMakerList[1],$mSnyTvList[2]} = $mS3Desc;

$mTvDB{$mTvMakerList[2],$mPnaTvList[0]} = $mP1Desc;

$mTvDB{$mTvMakerList[2],$mPnaTvList[1]} = $mP2Desc;

$mTvDB{$mTvMakerList[2],$mPnaTvList[2]} = $mP3Desc;

### run

foreach $name0( @{$mTvDB{maker}} ){

  print "--- $name0\n";

  foreach $name1( @{$mTvDB{$name0}} ){

    print " +-$name1\n";

    print " | +-$mTvDB{$name0,$name1}\n";

  }

}

#!/usr/bin/ruby -w

### class

class TvInfo

  def initialize(name,desc)

    @name = name

    @desc = desc

  end

  attr_accessor :name, :desc

end

### Input Data

# メーカー名の配列を定義

mTvMakerList = %W[TOSHIBA SONY PANASONIC]

# クラスを生成し、機種名と説明を格納する

t1TvInfo = TvInfo.new("T1", "Toshiba T1 TV desu")

t2TvInfo = TvInfo.new("T2", "Toshiba T2 TV desu")

t3TvInfo = TvInfo.new("T3", "Toshiba T3 TV desu")

s1TvInfo = TvInfo.new("S1", "Sony S1 TV desu")

s2TvInfo = TvInfo.new("S2", "Sony S2 TV desu")

s3TvInfo = TvInfo.new("S3", "Sony S3 TV desu")

p1TvInfo = TvInfo.new("P1", "Panasonic P1 TV desu")

p2TvInfo = TvInfo.new("P2", "Panasonic P2 TV desu")

p3TvInfo = TvInfo.new("P3", "Panasonic P3 TV desu")

### Create DB

mTvDB = Hash.new #initialize

# ハッシュに配列を登録

mTvDB.store("maker", mTvMakerList)

# classの配列を定義

mTsbTvList = [t1TvInfo, t2TvInfo, t3TvInfo]

mSnyTvList = [s1TvInfo, s2TvInfo, s3TvInfo]

mPnaTvList = [p1TvInfo, p2TvInfo, p3TvInfo]

# ハッシュに配列を登録

mTvDB.store(mTvMakerList[0], mTsbTvList)

mTvDB.store(mTvMakerList[1], mSnyTvList)

mTvDB.store(mTvMakerList[2], mPnaTvList)

### run

mTvMakerList.each { |name0|

  puts "--- #{name0}"

  mTvDB.fetch("#{name0}").each { |item|

    puts " +-" + item.name

    puts " | +-" + item.desc

  }

}

#!/usr/bin/python

### class

class TvInfo:

    def __init__(self, name, desc):

        self.name = name

        self.desc = desc

### Input Data

# メーカー名の配列を定義

mTvMakerList = ['TOSHIBA', 'SONY', 'PANASONIC']

# クラスを生成し、機種名と説明を格納する

t1TvInfo = TvInfo("T1", "Toshiba T1 TV desu")

t2TvInfo = TvInfo("T2", "Toshiba T2 TV desu")

t3TvInfo = TvInfo("T3", "Toshiba T3 TV desu")

s1TvInfo = TvInfo("S1", "Sony S1 TV desu")

s2TvInfo = TvInfo("S2", "Sony S2 TV desu")

s3TvInfo = TvInfo("S3", "Sony S3 TV desu")

p1TvInfo = TvInfo("P1", "Panasonic P1 TV desu")

p2TvInfo = TvInfo("P2", "Panasonic P2 TV desu")

p3TvInfo = TvInfo("P3", "Panasonic P3 TV desu")

### Create DB

mTvDB = {} #hash init

# ハッシュに配列を格納

mTvDB['maker'] = mTvMakerList

# classの配列を定義

mTsbTvList = [t1TvInfo, t2TvInfo, t3TvInfo]

mSnyTvList = [s1TvInfo, s2TvInfo, s3TvInfo]

mPnaTvList = [p1TvInfo, p2TvInfo, p3TvInfo]

# ハッシュに配列を格納

mTvDB[mTvMakerList[0]] = mTsbTvList

mTvDB[mTvMakerList[1]] = mSnyTvList

mTvDB[mTvMakerList[2]] = mPnaTvList

for maker in mTvDB['maker']:

    print "--- %s" % (maker)

    for item in mTvDB[maker]:

        print " +-%s" % (item.name)

        print " | +-%s" % (item.desc)

using System;

using System.Collections;

class TvInfo {

    string name, desc;

    public TvInfo(string name, string desc){

        this.name = name;

        this.desc = desc;

    }

    public string getName(){

        return this.name;

    }

    public string getDesc(){

        return this.desc;

    }

}

class Test {

    public static void Main(string[] args){

        // メーカー名の配列を定義

        string[] mTvMakerList = new string[] {"TOSHIBA", "SONY", "PANASONIC"};

        // クラスを生成し、機種名を説明を格納する

        TvInfo t1TvInfo = new TvInfo("T1", "Toshiba T1 TV desu");

        TvInfo t2TvInfo = new TvInfo("T2", "Toshiba T2 TV desu");

        TvInfo t3TvInfo = new TvInfo("T3", "Toshiba T3 TV desu");

        TvInfo s1TvInfo = new TvInfo("S1", "Sony S1 TV desu");

        TvInfo s2TvInfo = new TvInfo("S2", "Sony S2 TV desu");

        TvInfo s3TvInfo = new TvInfo("S3", "Sony S3 TV desu");

        TvInfo p1TvInfo = new TvInfo("P1", "Panasonic P1 TV desu");

        TvInfo p2TvInfo = new TvInfo("P2", "Panasonic P2 TV desu");

        TvInfo p3TvInfo = new TvInfo("P3", "Panasonic P3 TV desu");

        // Create DB

        Hashtable mTvDB = new Hashtable();

        mTvDB["maker"] = mTvMakerList;                            // ①

        TvInfo[] mTsbTvList = new TvInfo[] {t1TvInfo, t2TvInfo, t3TvInfo};

        TvInfo[] mSnyTvList = new TvInfo[] {s1TvInfo, s2TvInfo, s3TvInfo};

        TvInfo[] mPnaTvList = new TvInfo[] {p1TvInfo, p2TvInfo, p3TvInfo};

        mTvDB[mTvMakerList[0]] = mTsbTvList;

        mTvDB[mTvMakerList[1]] = mSnyTvList;

        mTvDB[mTvMakerList[2]] = mPnaTvList;

        foreach(string maker in mTvMakerList){

            Console.WriteLine("--- {0}", maker);

            TvInfo[] infoList = (TvInfo[]) mTvDB[maker];            // ②

            foreach(TvInfo info in infoList){                                // ②

                Console.WriteLine(" +-{0}", info.getName());

                Console.WriteLine(" | +-{0}", info.getDesc());

            }

        }

    }

}