席替えスクリプト for ppb 13' engineer.

shuffle.pl

use strict;
use List::Util;
 
my @name_list = ( "おっくん", "きたけー", "たけお", "ぐっさん" );
my @s_name_list = List::Util::shuffle @name_list;
 
print join(", ", @s_name_list);

shuffle27.py

# coding: utf-8
import random
import sys
 
reload(sys)
sys.setdefaultencoding('utf-8')
 
name_list = [
    u"おっくん",
    u"きたけー",
    u"たけお",
    u"ぐっさん"
]
 
random.shuffle(name_list)
print name_list[0], name_list[1], name_list[2], name_list[3]

shuffle3.py

import random
 
name_list = [
    "おっくん",
    "きたけー",
    "たけお",
    "ぐっさん"
]
 
random.shuffle(name_list)
print(name_list)