echigoyaechizen

Public Class Class1

    Public Shared Sub Main()
        Console.WriteLine(q3132(CInt(Console.ReadLine())))
        'For N As Int32 = 1 To 2017
        '   Dim a As Int32 = q3132(N)
        'Next
    End Sub

    Public Shared Function q3132(ByVal N As Int32) As Int32

echigoyaechizen

Public Class Class1

    Public Shared Sub Main()
        Do
            Dim s As String = Console.ReadLine()
            If s Is Nothing Then Exit Do
            Console.WriteLine(DK(s))
        Loop
    End Sub

echigoyaechizen

// ==UserScript==
// @name        デスマコロシアムの集計を最短でソート ACT.2改			
// @description デスマコロシアムの言語別集計の表を最短ペナルティでソートします。
// @include     http://tbpgr.hatenablog.com/entry/*
// @version     1.0.2
// @grant       none
// ==/UserScript==

var thA = new Array(6);
thA[0] = 'style="width:40px;text-align:center;">';