定義

単語のランクは、単語が意味のあるかどうかに関係なく、辞書のように、文字の可能なすべての順列（または配置）がアルファベット順に配置されるときの単語の位置として定義されます。

「青」と「見える」という2つの単語を考えてみましょう。そもそも、これらの単語の文字のすべての可能な配置をアルファベット順に記述します。

"blue": "belu","beul","bleu","blue","buel","bule","eblu","ebul","elub","elbu","eubl",
        "eulb","lbeu","lbue","lebu","leub","lube","lueb","ubel","uble","uebl","uelb",
        "ulbe","uleb"
"seen": "eens","eesn","enes","ense","esen","esne","nees","nese","nsee","seen",
        "sene","snee"

次に、左から見て、必要な単語の位置を見つけましょう。「blue」という単語が4番目の位置にあり、「seen」という単語が10番目の位置にあることがわかります。したがって、単語「blue」のランクは4、「seen」のランクは10です。これは、単語のランクを計算する一般的な方法です。必ず1からカウントを開始してください。

仕事

あなたの仕事は、入力として任意の単語を取り、そのランクを表示するコードを書くことです。ランクが出力になります。繰り返し文字を含む単語には注意してください。

例

"prime" -> 94

"super" -> 93

"bless" -> 4

"speech" -> 354

"earth" -> 28

"a" -> 1

"abcd" -> 1

"baa" -> 3    

入力は完全に小文字であると想定でき、入力にはアルファベット文字のみが含まれます。また、空白または無効な文字列が入力された場合は、何でも返すことができます。

得点

これはcode-golfなので、最短のコードが優先されます！

ガイア、4バイト

fuȯI

オンラインでお試しください！

Python 3、71バイト

lambda s:sum(t<=(*s,)for t in{*permutations(s)})
from itertools import*

オンラインでお試しください！

05AB1E、5バイト

ϐsk>

オンラインでお試しください！ またはテストスイートとして

説明

œ       # get permutations of input
 ê      # sort and remove duplicates
  s     # swap input to top of stack
   k    # get index of input in the list
    >   # increment

Pyth、6バイト

hxS{.p

テストスイート。

説明

hxS {.p || 完全なプログラム。

    .p || 入力のすべての順列。
   {|| 重複排除。
  S || ソート。
 x || このリストへの入力のインデックス。
h || インクリメント。

ゼリー、5バイト

Œ!ṢQi

オンラインでお試しください！またはテストスイートを見る

使い方

Œ!ṢQi - Main link. Argument: s (string)      e.g. 'baa'
Œ!    - All permutations                          ['baa', 'baa', 'aba', 'aab', 'aba', 'aab']
  Ṣ   - Sort                                      ['aab', 'aab', 'aba', 'aba', 'baa', 'baa']
   Q  - Deduplicate                               ['aab', 'aba', 'baa']
    i - 1-based index of s                        3

Python 2、78バイト

lambda s:-~sorted(set(permutations(s))).index(tuple(s))
from itertools import*

オンラインでお試しください！

Python 3、73バイト

• Python 3を選択してくれたXcoder氏に感謝します。5バイトを節約します。

lambda s:-~sorted({*permutations(s)}).index((*s,))
from itertools import*

オンラインでお試しください！

CJam、8バイト

q_e!\a#)

オンラインでお試しください！

1インデックスの要件により+1バイト。

Haskell、56バイト

import Data.List
elemIndex<*>([]:).nub.sort.permutations

オンラインでお試しください！

1インデックスの要件のため、+ 6バイト。:(

Japt、8 10バイト

0インデックス。ポクシー、不要な1インデックス、バイトカウントが25％増加します！

á â n bU Ä

試して

説明

á入力のすべての順列は、取得しâ、重複を削除し、nそれらをソートしてb、入力が最初に出現する位置のインデックスを取得しますU。

J、28 23バイト

FrownyFrogのおかげで-5バイト

1+/:~@~.@(A.~i.@!@#)i.]

使い方？

                      ] - the argument
         (A.~      )    - permutations in the 
             i.@!@#     - range 0 to factorial of the arg. length
  /:~@~.@               - remove duplicates and sort
                    i.  - index of arg. in the sorted list
1+                      - add 1 (for 1-based indexing)

オンラインでお試しください！

Tcl、196バイト

proc p {a p} {if {$a eq {}} {lappend ::p $p} {while {[incr n]<=[llength $a]} {p [lreplace $a $n-1 $n-1] $p[lindex $a $n-1]}}}
p [split $argv ""] ""
puts [expr [lsearch [lsort -unique $p] $argv]+1]

Tclには、次の辞書式順列を計算するための組み込みメソッドがないため、自分で行う必要があります。しかし、待って...それは短いですあらゆる順列をあらゆる順序で計算する単純な再帰関数でそれを行うです。

ゴルフをしていない：

# Compute all possible permutations of the argument list
# Puts the result in ::all_permutations
proc generate_all_permutations {xs {prefixes ""}} {
  if {$xs eq {}} {
    lappend ::all_permutations $prefixes
  } else {
    while {[incr n] <= [llength $xs]} {
      generate_all_permutations [lreplace $xs $n-1 $n-1] $prefixes[lindex $xs $n-1]
    } 
  }
}

# Get our input as command-line argument, turn it into a list of letters
generate_all_permutations [split $argv ""]

# Sort, remove duplicates, find the original argument, and print its 1-based index
puts [expr [lsearch [lsort -unique $all_permutations] $argv]+1]

K（oK）、23 18バイト

溶液：

1+*&x~/:?x@prm@<x:

オンラインでお試しください！

例：

1+*&x~/:?x@prm@<x:"seen"
10
1+*&x~/:?x@prm@<x:"blue"
4

説明：

ソートされた入力文字列のインデックスの順列を生成し、それらを使用して入力文字列にインデックスを付け直し、区別を取得し、元の文字列が一致した場所を確認し、追加します。

1+*&x~/:?x@prm@<x: / the solution
                x: / save input string as x
               <   / return indices when sorting x ascending
           prm@    / apply (@) function prm
         x@        / index into x with these permutations
        ?          / distinct (remove duplicates)
    x~/:           / apply match (~) between x and each-right (/:)
   &               / return indexes where true (ie the match)
  *                / take the first one
1+                 / add 1 due to 1-indexing requirement

Java 8、211バイト

import java.util.*;TreeSet q=new TreeSet();s->{p("",s);return-~q.headSet(s).size();}void p(String p,String s){int l=s.length(),i=0;if(l<1)q.add(p);for(;i<l;p(p+s.charAt(i),s.substring(0,i)+s.substring(++i,l)));}

説明：

オンラインでお試しください。

import java.util.*;        // Required import for TreeSet

TreeSet q=new TreeSet();   // Sorted Set on class-level

s->{                       // Method with String parameter and integer return-type
  p("",s);                 //  Save all unique permutations of the String in the sorted set
  return-~q.headSet(s).size();}
                           //  Return the 0-indexed index of the input in the set + 1

void p(String p,String s){ // Separated method with 2 String parameters and no return-type
  int l=s.length(),        //  The length of the String `s`
      i=0;                 //  Index integer, starting at 0
  if(l<1)                  //  If String `s` is empty
    q.add(p);              //   Add `p` to the set
  for(;i<l;                //  Loop from 0 to `l` (exclusive)
    p(                     //   Do a recursive call with:
      p+s.charAt(i),       //    `p` + the character at the current index of `s` as new `p`
      s.substring(0,i)+s.substring(++i,l)));}
                           //    And `s` minus this character as new `s`

Pythonの3、183 182バイト

多項式時間で実行される最初の答え！

a=[*map(ord,input())]
f=lambda x:x and x*f(x-1)or 1
c=[0]*98
for C in a:c[C]+=1
l=len(a)
F=f(l)
for i in c:F//=f(i)
r=1
for x in a:F//=l;l-=1;r+=sum(c[:x])*F;F*=c[x];c[x]-=1
print(r)

オンラインでお試しください！

入力をすべて大文字にする必要があります。1バイトを節約するためです。

完全なプログラム。入力をからstdin出力しstdoutます。

変数名：（並べ替えられていないコード）

a : permu
f : factorial
c : count_num
C : char
l : n_num_left
F : factor
r : result

残念ながら、from math import factorial as f正確にもう1バイト必要です。

（無関係な注意：Combinatorica`Mathematica のパッケージをチェックしましたが、有用なものは何もありませんでした。RankPermutation）

殻、6バイト

S€(OuP

オンラインでお試しください！ドロップする方法があるべきだと思う(。

説明：

 €     -- return index of the input 
S (    -- in the list generated by applying the following functions to the input:
     P -- permutations
    u  -- remove duplicates
   O   -- sort

クリーン、113 111バイト

import StdEnv,StdLib
?s=elemIndex s[[]:removeDup(foldr(\a b=sort[insertAt i a x\\x<-b,i<-[0..length x]])[[]]s)]

オンラインでお試しください！

1-indexingを処理する+3バイト：/

APL（Dyalog Unicode）、33バイト（SBCS）

⎕CY'dfns'
{∪⊃∘(⍵[⍋⍵])¨¨↓pmat≢⍵}⍳⊂

オンラインでお試しください！

Pythonの3、105の 104 103バイト

f=lambda s:s==s*2or f(s[1:])+sum(f(sorted(s[:s.index(c)]+s[s.index(c)+1:])[::-1])for c in{*s}if c<s[0])

オンラインでお試しください！

ルビー、49バイト

->w{c=w.chars
1+c.sort.permutation.uniq.index(c)}

オンラインでお試しください！

JavaScriptの（ES6）、106の 100バイト

w=>(P=(a,s)=>a[0]?a.map((_,i)=>P(b=[...a],s+b.splice(i,1))):P[s]=P[s]||++k)[P([...w].sort(),k=''),w]

テストケース

let f =

w=>(P=(a,s)=>a[0]?a.map((_,i)=>P(b=[...a],s+b.splice(i,1))):P[s]=P[s]||++k)[P([...w].sort(),k=''),w]

console.log(f("prime"))  // 94
console.log(f("super"))  // 93
console.log(f("bless"))  // 4
console.log(f("speech")) // 354
console.log(f("earth"))  // 28
console.log(f("a"))      // 1
console.log(f("abcd"))   // 1
console.log(f("baa"))    // 3

どうやって？

P（）は再帰的な順列関数です。ただし、Pの包含オブジェクトは、順列のランクを格納するためにも使用されます。

P = (a, s) =>               // given an array of letters a[] and a string s
  a[0] ?                    // if a[] is not empty:
    a.map((_, i) =>         //   for each entry at position i in a[]:
      P(                    //     do a recursive call to P() with:
        b = [...a],         //       a copy b[] of a[], with a[i] removed
        s + b.splice(i, 1)  //       the extracted letter appended to s
      )                     //     end of recursive call
    )                       //   end of map()
  :                         // else:
    P[s] = P[s] || ++k      //   if P[s] is not already defined, set it to ++k

ラッピングコードは次のようになります。

w =>                        // given the input word w
  P[                        // return the permutation rank for w
    P(                      //   initial call to P() with:
      [...w].sort(),        //     the lexicographically sorted letters of w
      k = ''                //     s = k = '' (k is then coerced to a number)
    ),                      //   end of call
    w                       //   actual index used to read P[]
  ]                         // end of access to P[]

C ++、230バイト

#include<algorithm>
#include<iostream>
#include<string>
using namespace std;void R(string s){int n=1;auto p=s;sort(begin(p),end(p));do if(p==s)cout<<n;while(++n,next_permutation(begin(p),end(p)));}int main(int n,char**a){R(a[1]);}

私の質問によると、コードは間違いなくそのまま実行可能である必要があります。関数のみの句は基本的にゴミです。：-@

私のために何を切り出すことができるかという質問に親切に答えてくれた人々に感謝します。有効な利益のためにコードために、私は<bits / stdc ++。h>をインクルードするという一般的なGCC主義を避けました。

以下は、元の投稿の残りの部分です。

ここでは、必要なヘッダーなどが含まれていません。

#include <algorithm>
#include <iostream>
#include <string>
using namespace std;

void R( string s )
{
  int n = 1;
  auto p = s;
  sort( begin(p), end(p) );
  do if (p == s) cout << n;
  while (++n, next_permutation( begin(p), end(p) ));
}

int main( int n, char** a )
{
  R( a[1] );
}

ゴルフは230バイトまでで、これはすべての C ++プログラムが必要とする標準的な定型の3分の1です。（だから、それを数えなくても悪くはないが、どちらの方法でもしっかりした苦情を見たことがないので、OPは彼がどちらを好むのかを教えなければならない。ランクを表示します。」）

これが「ランクを出力する必要がある」かどうかもわかりません。

Perl 5、98 + 3（-pF）= 101バイト

$"=',';@a=grep{++$k{$_}<=1&&"@F"eq join$",sort/./g}sort glob"{@F}"x(@F=sort@F);1while!/$a[$\++]/}{

オンラインでお試しください！

オクターブ、43バイト

@(s)find(all(unique(perms(s),'rows')==s,2))

オンラインでお試しください！

Perl 6、53バイト

{1+first :k,$_,.comb.permutations».join.unique.sort}

オンラインでお試しください！

PowerShell、275バイト

param($s)function n($a){if($a-eq1){return}0..($a-1)|%{n($a-1);if($a-eq2){$b.ToString()}$p=($j-$a);[char]$t=$b[$p];for($z=($p+1);$z-lt$j;$z++){$b[($z-1)]=$b[$z]}$b[($z-1)]=$t}}if($s.length-eq1){1;exit}$b=New-Object Text.StringBuilder $s;(n($j=$s.length)|sort -u).indexOf($s)+1

オンラインでお試しください！

だから、これは血まみれの混乱です。

PowerShellには順列が組み込まれていないため、このコードでは、Microsoft Limited Public License（このライセンスページの別紙B）で利用可能な、ここからのアルゴリズム（大量にゴルフ）を使用します。

プログラムは入力$sを文字列として受け取り、実際のプログラムはで始まり$b=New-Object ...ます。新しいStringBuilderオブジェクトを構築しています。これは（本質的に）可変文字列です。これにより、順列をより簡単に処理できるようになります。次に、niqueフラグを出力にn設定し$jて関数を呼び出し（入力文字列の長さになるように設定します）、入力文字列を見つけて追加し、PowerShellのインデックスがゼロであるため追加します。sort-u.indexOf()1

機能はプログラムの主要部分です。入力として数値を取り、各反復は到達するまでカウントダウンします1（つまり、1文字）。残りの関数は基本的に関数を再帰的に呼び出し、現在の文字を取得してすべての位置で繰り返します。

順列関数がどのように機能するかによりif($s.length-eq1){1;exit}、長さの入力文字列を考慮する追加のロジックが1ビットあります1。

Pyt、5 バイト

ĐᒆỤ≥Ʃ

説明：

            Implicit input
Đ           Duplicate input
 ᒆ         Get list of all permutations of input
  Ụ         Get unique permutations
   ≥        Does each permutation come before or is equal to the input?
    Ʃ       Sum of result of previous step (converts booleans to ints)

オンラインでお試しください！