私の父は引退した教師であり、彼は学生が単語を綴るスペルと数学のクイズを組み合わせて与え、その後、a = 1、b = 2などの文字を加算して単語を「採点」しました。 （例：cat = 3 + 1 + 20 = 24）。これにより、クイズの採点が容易になりました。スペルが間違っている単語ではなく、誤った「スコア」をチェックするだけで済み、2つのスキルを一度にテストできるという利点がありました。

彼は私の友人を雇って、彼のために単語を採点するプログラムを書いたので、彼は間違いなく長い回答キーを生成することができました。この問題は、そのプログラムに触発されています。

要件：

1. 大文字と小文字の任意の単語を受け入れます
2. スペース、ハイフン、@ ^％＃などの特殊文字に対してエラーを返します。
3. a = 1、b = 2、...およびA = 1、B = 2、...
4. 単語のスコアを印刷する
5. （オプション）スコアリング後に単語が辞書にあることを確認し、ない場合は警告を出力します。
6. 外部の文字->数字辞書をインポートしません。自分で生成する必要があります。

任意の言語が受け入れられます。これは「デジタルルートバトル」に似ていますが、はるかに簡単です。

Golfscript-23文字

0\{.31&.(.26%=@64///+}/

入力に末尾の改行がないことを確認します（例：を使用echo -n）。

Brainf ***（100）

>+[>,---------]<[<]>>
[--------------------
---------------------
-------------->]<[[[<
]>+[>]<->]<<]>-.

ただし、これはすべての要件に完全に準拠しているわけではありません。まず、大文字のみを受け入れ、単語はタブで終わる必要があります。無効な文字に対する未定義の動作があり、エラーをスローしません。文字の合計がASCII文字として表示されます。たとえば、単語が「HELLO」（8 + 5 + 12 + 12 + 15 = 52）の場合、52のASCII文字である「4」という文字が表示されます。これは、プログラムが次の場合に異常終了することも意味します。合計が255を超えています。

しかし、それ以外は問題なく動作します。休憩してください、私の脳は少量しか扱えません...まあ、あなたは知っています。

パイソン（65 64）

print sum(['',ord(i)-64]['@'<i<'[']for i in raw_input().upper())

これは、単語に文字以外の文字が含まれている場合にエラーを発生させますが、有用な文字でも有益な文字でもありません。（編集：インデックス作成のコツをst0leに教えてください。）

ルビー、43文字

$_=gets.upcase;p~/[^A-Z]/?_: $_.sum-64*~/$/

ただし、これが生成するエラーメッセージは正確には役に立ちません。ここに掲載されている両方のソリューションは、入力に末尾の改行がないことを前提としていますecho -n。

Ruby、辞書チェック付きの76文字

l=STDIN.gets;$_=l.upcase;p~/[^A-Z]/?_: $_.sum-64*~/$/;[*$<].index(l)||$><<?W

警告メッセージは、単一の文字「W」で構成されています。辞書へのパスは、ARGVを介して提供する必要があります。使用例：

$ echo -n asd | ruby addletters.rb /usr/share/dict/words
24
W
$ echo -n cat | ruby addletters.rb /usr/share/dict/words
24

Python 2.6（72文字）辞書チェックなし

print sum(map(" abcdefghijklmnopqrstuvwxyz".index, raw_input().lower()))

Python 2.6（178文字*）辞書チェックあり

w=raw_input().lower()
print sum(map(" abcdefghijklmnopqrstuvwxyz".index, w))
if w not in open('/usr/share/dict/american-english').read().split():
 print('Word not in dictionary')

_{*有用性の低いエラーメッセージで156に下げることができます。:-)}

これを改善するのを手伝ってくれたすべてのコメント者に感謝します。

Perl （52）（48）

ティムウィのおかげでさらにゴルフができました

perl -lpe "($w=uc)=~/[^A-Z]/&¨$w=~s/./$_-=64-ord$&/ge"

パイソン（80）

w=raw_input().lower()
s=0
for l in w:s+=range(97,123).index(ord(l))+1
print s

Python v2（65しかしchar `は受け入れられます）

print sum(map(range(96,123).index,map(ord,raw_input().lower())))

v3（60文字、@は受け入れられますが、カウントされません、ありがとうjloy）

print sum(map(range(64,91).index,map(ord,input().upper())))

Scala：59文字、そのうち7つはペイロード、dictはなし：

(0/:"Payload".map(c=>if(c.isLetter)(c-'A')%32 else-999))(_+_)
67

今のところ辞書はありません。負の結果とは、次のことを意味します。

(0/:"Pay!wall?".map(c=>if(c.isLetter)(c-'A')%32 else-999))(_+_)   
-1915

ところで、ドイツのウムラウトを優雅に扱います：

(0/:"Müllrößchen".map(c=>if(c.isLetter)(c-'A')%32 else-999))(_+_)
155

Java + Google Guavaライブラリ、347文字、辞書チェック付き

読み取り不能な1つの長い文字列バージョン:-)

import java.io.*;import com.google.common.base.*;import com.google.common.io.*;class C{public static void main(String[]a)throws Exception{int s=0;for(int c:a[0].toUpperCase().toCharArray()){assert(c>64&&c<91);s+=c-64;}String d=Files.toString(new File(a[1]),Charsets.UTF_8);if(StringUtils.containsIgnoreCase(d,a[0]))System.out.println("w");System.out.println(s);}}

人間が読めるバージョン（:-)の種類）

import java.io.*;

import com.google.common.base.*;
import com.google.common.io.*;

class C {
    public static void main(String[] a) throws Exception {
        int s=0;

        for(int c : a[0].toUpperCase().toCharArray()) {
            System.out.println(c);
            assert(c > 64 && c < 91);
            s += c - 64;
        }

        String d = Files.toString(new File(a[1]), Charsets.UTF_8);

        if (d.contains(a[0])) System.out.println("w");

        System.out.println(s);
    }
}

辞書パスはを介して渡されるようa[1]になりました。アサーションを機能させるには、-eaフラグを使用する必要があります（+3文字以上）。辞書については、dict /usr/share/dict/words（ほとんどの* nixシステムで使用可能）が使用されています。

Python 3、辞書付き95文字

d=input().lower()
print(d in open("d").read()and sum(['',ord(c)-96]['`'<c<'{']for c in d)or'f')

辞書はdというファイルに存在する必要があります。

Python 3、61、辞書なし、盗まれたアイデア

print(sum(['',ord(c)-96]['`'<c<'{']for c in input().lower()))

Perl（71）

($a)=lc<>;$a=~/[^a-z]/i&&die;$x+=ord$_ for split//,$a;die$x-96*length$a;

VB.NET、84 82 73 71

Console.Write(Console.ReadLine.Sum(Function(c)Asc(Char.ToUpper(c))-64))

編集：検証あり：

Dim r=Console.ReadLine
Console.Write(If(r.All(AddressOf Char.IsLetter),r.Sum(Function(c)Asc(Char.ToUpper(c))-64),"Invalid input."))

129文字。その場合：

C＃、118

var r=Console.ReadLine();Console.Write(r.All(char.IsLetter)?r.Sum(c=>char.ToUpper(c)-64).ToString():"Invalid input.");

ジョンの答えを少し改善：Python（90）

s=0
for i in raw_input().lower():
 s+=("abcdefghijklmnopqrstuvwxyz".index(i)+1)
print(s)

アーラン、104

a()->
a(string:to_lower(io:get_line([])),0).
a([_|[]],S)->
S;
a([C|R],S) when C<${, C>=$`->
a(R,S+C-$`).

Golfscript-39文字

n%~{.96>{96}{64}if-..26>\0<|{0/}*}%{+}*

それが投げるエラーは正確に最高ではありませんが、ちょっと、実行を中止します。

PYTHON 62 68 *キャラクター

print sum(map(chr,range(65,91)).index(c)+1 for c in input().upper())

ユーザーは引用符を使用して文字列を入力する必要があり、安全ではありません（inputコードを実行します）が、別の投稿のコメントで述べたように、「ユーザーフレンドリー」と「セキュリティリスクではない」は仕様にありません！

_{*忘れてしまったprint。}

Ruby 1.9、69

w=gets.chop.upcase
w[/[^A-Z]/]&&fail
p w.bytes.inject(0){|s,b|s+b-64}

GolfScript、50（53）

悪い文字ではエラーになりますが、あまり良い文字ではありません（50文字）：

);[{""123,97>+91,65>+?}/].-1?0<{{26%1+}%{+}*}{@}if

代わりにエラー時に "E"を返します（53文字）：

);[{""123,97>+91,65>+?}/].-1?0<{{26%1+}%{+}*}{;"E"}if

アルファベット生成スニペット123,97>+はVenteroから盗まれます。

J（55）

+/64-~-&32`]@.(<&97)`_:@.(<&65)`_:@.(>&122)"0,I.a.&e."0

これは、辞書の条件を除くすべての条件を満たします。エラー条件として、文字以外を含む単語に対して「無限大」（Jの下線記号）を返します。

ハスケル（127）

（変な文字にエラーが発生します）
（また：との間のスペースtoUpper.とは、\xそれ以外の場合のようにそれを解析し必要とされています(toUpper) .\ (x)）

import Char
main=getLine>>=putStrLn.show.sum.(map$(-65+).ord.toUpper. \x->if x`elem`['A'..'Z']++['a'..'z']then x else error"")

ハスケル（70）

（エラーは発生しませんが、45％短くなります）

import Char
main=getLine>>=putStrLn.show.sum.(map$(-65+).ord.toUpper)

C ++（111 107）

void main(){int a=0;s8*b=new s8[99];for(cin>>b;*b;)if(isalpha(*b))a+=tolower(*b++)-96;else return;cout<<a;}

「セットアップ」/など：

#include <iostream>
#include <cstdio>
#include <cctype>

#ifdef _MSC_VER
    typedef __int8 s8;
#else
    typedef signed char s8;
#endif

「未定義」の動作（「未定義」よりも「悪い習慣」ですが、まあまあです）：

• void main() それがすべてです。
• newなしで使用していdeleteます。

JavaScript 1.8、80文字

驚くほど読みやすい！

alert(Array.reduce(prompt().toLowerCase(),function(a,b)a+b.charCodeAt(0)-96,0))

APL（34）

+/{⍵∊⍳26:⍵}¨{64-⍨A-32×96<A←⎕UCS⍵}⍞

スコア、またはVALUE ERROR入力にアルファベット以外の文字がある場合にaを与えます。

説明：

• ⍞：入力行を読み取ります
• {... }：入力のすべての文字に適用される関数
• A←⎕UCS⍵：現在の文字のASCII値を A
• A-32×96<A：文字を大文字にする：from Aが32 から減算される96<A（したがって、大文字の場合）、それ以外の場合は0
• 64-⍨：これから64を引き、A = 1、B = 2を与えます...
• ¨：すべての文字にこの関数を適用します：
• ⍵∊⍳26：文字が1〜26の場合...
• :⍵：その後、⍵を返します（else節がVALUE ERRORないため、1から26でない場合はaになります）
• +/：すべての値を合計します（この値は最終結果であるため、自動的に出力されます）。

JavaScript、60バイト

s=>[...s.toUpperCase()].reduce((a,b)=>a+b.charCodeAt()-64,0)

プログラムが無効な入力でエラーを返す必要がある場合、80バイト：

s=>/[^a-z]/i.test(s)?_:[...s.toUpperCase()].reduce((a,b)=>a+b.charCodeAt()-64,0)

入力が無効な場合、コンソールはそれ_が定義されていないことを通知します（という名前の変数が定義されていてはいけません_）。

Python 3、58 55

print(sum(ord(x)%32for x in input()if x.isalpha()or z))

辞書や盗まれたアイデアはありませんが、まだ役に立たないエラー;）

thx @Eᴀsᴛᴇʀʟʏ

ここでテストします。

C、98バイト

 int a(char *s){int b=0;while(*s){if(!isalpha(*s))throw 1;b+=(toupper(*(s++))-64);}printf("%d",b);}

F＃（検証なし）79 57文字

let a w=w|>Seq.fold(fun a b->a+(int b)-65)0|>printfn"%i"

検証付きのC＃：108文字（エラーメッセージには12文字）：

var s=Console.ReadLine();Console.Write(s.All(Char.IsLetter)?s.Sum(x=>x&'_'-'@').ToString():"Invalid input");

検証なしのC＃：60 53文字：

Console.Write(Console.ReadLine().Sum(x=>x&'_'-'@'));

Perl（42 31）

perl -F -pale '$c+=ord(uc$_)-64for@F;$_=$c'

F、p、a、lを1文字として数えるのが正しいと思います。

JavaScript、68バイト

これはほぼ確実にもっとゴルフできる

w=>[...w.toLowerCase()].map(v=>v.charCodeAt()-96).reduce((a,b)=>a+b)

辞書チェックあり（Node.jsおよびUnixの子孫のみ）195バイト

を使用し/usr/share/dict/words、間違いなく短縮できます（警告メッセージを参照）

w=>(require("fs").readFile("/usr/share/dict/words",(e,t)=>!(t+"").split`
`.includes(w=w.toLowerCase())&&console.warn(w+" not found in dict")),[...w].map(v=>v.charCodeAt()-96).reduce((a,b)=>a+b))