Definisi

Pangkat kata didefinisikan sebagai posisi kata ketika semua kemungkinan permutasi (atau pengaturan) huruf-hurufnya diatur secara alfabet, seperti dalam kamus, tidak peduli apakah kata-katanya bermakna atau tidak.

Mari kita perhatikan dua kata ini - "biru" dan "terlihat". Untuk memulainya, kami akan menulis semua susunan huruf yang mungkin dari kata-kata ini dalam urutan abjad:

"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"

Sekarang mari kita lihat dari kiri dan temukan posisi kata-kata yang kita butuhkan. Kita melihat bahwa kata "biru" berada di posisi ke-4 dan "terlihat" berada di posisi ke-10. Jadi pangkat kata "biru" adalah 4, dan "terlihat" adalah 10. Ini adalah cara umum untuk menghitung pangkat kata. Pastikan Anda mulai menghitung dari 1 saja.

Tugas

Tugas Anda adalah menulis kode untuk mengambil kata apa pun sebagai input dan menampilkan peringkatnya. Pangkat harus menjadi output. Hati-hati dengan kata-kata yang mengandung huruf berulang.

Contohnya

"prime" -> 94

"super" -> 93

"bless" -> 4

"speech" -> 354

"earth" -> 28

"a" -> 1

"abcd" -> 1

"baa" -> 3    

Anda dapat menganggap input sepenuhnya dalam huruf kecil dan input hanya akan berisi karakter alfabet . Juga jika ruang kosong atau string tidak valid dimasukkan, Anda dapat mengembalikan apa pun.

Mencetak gol

Ini adalah kode-golf , jadi kode terpendek menang!

Gaia , 4 byte

fuȯI

Cobalah online!

Python 3 , 71 byte

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

Cobalah online!

05AB1E , 5 byte

ϐsk>

Cobalah online! atau sebagai Test suite

Penjelasan

œ       # 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 byte

hxS{.p

Suite uji.

Penjelasan

hxS {.p || Program lengkap.

    .p || Semua permutasi dari input.
   {|| Deduplicate.
  S || Menyortir.
 x || Indeks input ke dalam daftar ini.
h || Kenaikan.

Jelly , 5 byte

Œ!ṢQi

Cobalah online! atau lihat test suite

Bagaimana itu bekerja

Œ!Ṣ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 byte

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

Cobalah online!

Python 3 , 73 byte

• Terima kasih kepada Tn. Xcoder karena memilih Python 3; menghemat lima byte.

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

Cobalah online!

CJam , 8 byte

q_e!\a#)

Cobalah online!

+1 byte karena persyaratan 1-diindeks.

Haskell , 56 byte

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

Cobalah online!

+6 byte karena persyaratan pengindeksan 1. :(

Japt , 8 10 byte

Diindeks 0. Poxy, pengindeksan 1 yang tidak perlu, meningkatkan jumlah byte saya sebesar 25%!

á â n bU Ä

Menguji

Penjelasan

ámendapatkan semua permutasi input, âmenghapus duplikat, nmengurutkannya dan bmendapatkan indeks kemunculan input pertama U,.

J , 28 23 byte

-5 byte berkat FrownyFrog

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

Bagaimana itu bekerja?

                      ] - 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)

Cobalah online!

Tcl, 196 byte

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 tidak memiliki metode bawaan untuk menghitung permutasi leksikografis berikutnya, jadi kita harus melakukannya sendiri. Tapi tunggu ... lebih pendek melakukannya dengan fungsi rekursif sederhana yang menghitung semua permutasi yang memungkinkan dalam urutan apa pun.

Tidak Disatukan:

# 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 byte

Larutan:

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

Cobalah online!

Contoh:

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

Penjelasan:

Hasilkan permutasi dari indeks string input yang diurutkan, gunakan mereka untuk mengindeks kembali ke string input, ambil perbedaan, lihat di mana string asli cocok, dan tambahkan satu.

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 byte

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)));}

Penjelasan:

Cobalah online.

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 byte

Jawaban pertama yang dijalankan dalam waktu polinomial!

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)

Cobalah online!

Membutuhkan input untuk semua huruf besar, karena ... menghemat satu byte.

Program lengkap, mengambil input dari stdindan output ke stdout.

Nama-nama variabel: (semacam kode yang tidak dipisahkan)

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

Sayangnya, from math import factorial as fdibutuhkan tepat 1 byte lagi.

(Catatan yang tidak terkait: Saya memeriksa Combinatorica`paket Mathematica, tidak ada yang berguna, termasuk RankPermutation)

Sekam , 6 byte

S€(OuP

Cobalah online! Saya merasa harus ada cara untuk menjatuhkan (.

Penjelasan:

 €     -- 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

Bersih , 113 111 byte

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

Cobalah online!

+3 byte untuk menangani pengindeksan 1: /

APL (Dyalog Unicode) , 33 byte (SBCS)

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

Cobalah online!

Python 3 , 105 104 103 byte

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])

Cobalah online!

Ruby , 49 byte

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

Cobalah online!

JavaScript (ES6), 106 100 byte

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]

Uji kasus

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

Bagaimana?

P () adalah fungsi permutasi rekursif kami. Tetapi objek P yang melingkupi juga digunakan untuk menyimpan peringkat permutasi.

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

Kode pembungkus sekarang terbaca sebagai:

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 byte

#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]);}

Sesuai permintaan saya, kode pasti harus dapat dieksekusi apa adanya. Klausa fungsi-satunya pada dasarnya adalah sampah. : - @

Terima kasih kepada mereka yang dengan ramah menjawab pertanyaan tentang apa yang bisa cocok untuk saya. Untuk kepentingan kode yang valid , saya telah menghindari GCC-isme yang populer termasuk <bits / stdc ++. H>, yang saya selalu anggap sebagai cheat loophole yang buruk.

Berikut ini apa yang tersisa dari postingan asli saya:

Ini dia ungolfed dengan header yang diperlukan, dll:

#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] );
}

Itu golf turun ke 230 byte, sepertiga dari pelat standar yang dibutuhkan oleh setiap program C ++. (Jadi, saya merasa tidak terlalu buruk untuk tidak menghitungnya, tetapi karena saya belum pernah melihat keluhan yang tegas, OP harus memberi tahu saya mana yang dia inginkan untuk memuaskan “tulis kode untuk menerima kata sebagai masukan dan tampilkan peringkatnya. ")

Saya juga tidak yakin apakah ini memuaskan "peringkat harus menjadi output."

Perl 5 , 98 + 3 ( -pF) = 101 byte

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

Cobalah online!

Oktaf , 43 byte

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

Cobalah online!

Perl 6 , 53 byte

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

Cobalah online!

PowerShell , 275 byte

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

Cobalah online!

Jadi, ini berantakan sekali.

PowerShell tidak memiliki permutasi bawaan, jadi kode ini menggunakan algoritme dari sini (golf sangat), yang tersedia di bawah Lisensi Publik Terbatas Microsoft ( Bukti B pada halaman lisensi ini).

Program mengambil input $ssebagai string, lalu program yang sebenarnya dimulai dengan $b=New-Object .... Kami sedang membangun objek StringBuilder baru , yang (pada dasarnya) adalah string karakter yang bisa berubah. Ini akan memungkinkan kita untuk menangani permutasi dengan lebih mudah. Kami kemudian memanggil fungsi n(pengaturan $jsepanjang panjang string input), sortdengan -uflag nique output, ambil .indexOf()untuk menemukan string input, dan tambahkan 1karena PowerShell diindeks nol.

Fungsi adalah bagian utama dari program. Dibutuhkan sebagai input nomor, dan masing-masing iterasi akan dihitung mundur sampai kita mencapai 1(yaitu, satu huruf). Sisa dari fungsi tersebut pada dasarnya memanggil fungsi secara berulang serta mengambil huruf saat ini dan beralih ke setiap posisi.

Ada sedikit logika tambahan if($s.length-eq1){1;exit}untuk menjelaskan panjang input string 1karena cara fungsi permutasi bekerja.

Pyt , 5 byte

ĐᒆỤ≥Ʃ

Penjelasan:

            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)

Cobalah online!