if 조건을 사용하여 for 루프에서 알파벳 순서를 강제 적용합니다.

Question 1

#/bin/sh

# shellcheck disable=SC2046
# ^ word-splitting by the shell is intentional in this file

elems="Cr Hf Mo Nb Ta Ti V W Zr"
for a in $elems
do
    for b in $elems
    do
        for c in $elems
        do
            for d in $elems
            do
                # for a set of any four elements:
                #   string them together, separated by NUL-bytes
                #   sort them lexicographically ...
                #     ... with NUL separating the elements (-z)
                #     ... and eliminate duplicates (-u)
                #   then replace the NUL bytes with line breaks
                #   allow the shell to split on those line breaks
                #   and chuck the resulting chunks into $1, $2, etc
                set -- $(printf '%s\0' "$a" "$b" "$c" "$d" | sort -z -u | tr "\0" "\n")

                # only if the current selection of elements consisted of four
                # different ones (remember we eliminated duplicates):
                if [ $# -eq 4 ]
                then
                    # create a directory, don't error out if it already exists (-p)
                    mkdir -p "$(printf '%s' "$@")"
                fi
            done
        done
    done
done

매우 효율적이지는 않지만( sort명백한 비후보자를 호출하고 mkdir동일한 디렉토리 이름을 여러 번 호출하는 경우에도) 내부 루프는 최대 9 ⁴ = 6561 반복을 수행하며 일회성 스크립트이므로 그럴 것이라고 생각하지 않습니다. 최적화하는 데 많은 시간을 투자할 가치가 있습니다.

편집:
Xeon E3-1231v3에 대한 벤치마크, 아니요 mkdir:

./elemdirs.sh > /dev/null  11.66s user 1.73s system 173% cpu 7.725 total

그리고 그것과 함께:

./elemdirs.sh > /dev/null  13.80s user 2.16s system 156% cpu 10.215 total

예상한 수인 126개의 디렉터리를 생성합니다.콤비네이션여기서 k = 4, n = 9입니다.

Answer

#/bin/sh

# shellcheck disable=SC2046
# ^ word-splitting by the shell is intentional in this file

elems="Cr Hf Mo Nb Ta Ti V W Zr"
for a in $elems
do
    for b in $elems
    do
        for c in $elems
        do
            for d in $elems
            do
                # for a set of any four elements:
                #   string them together, separated by NUL-bytes
                #   sort them lexicographically ...
                #     ... with NUL separating the elements (-z)
                #     ... and eliminate duplicates (-u)
                #   then replace the NUL bytes with line breaks
                #   allow the shell to split on those line breaks
                #   and chuck the resulting chunks into $1, $2, etc
                set -- $(printf '%s\0' "$a" "$b" "$c" "$d" | sort -z -u | tr "\0" "\n")

                # only if the current selection of elements consisted of four
                # different ones (remember we eliminated duplicates):
                if [ $# -eq 4 ]
                then
                    # create a directory, don't error out if it already exists (-p)
                    mkdir -p "$(printf '%s' "$@")"
                fi
            done
        done
    done
done

매우 효율적이지는 않지만( sort명백한 비후보자를 호출하고 mkdir동일한 디렉토리 이름을 여러 번 호출하는 경우에도) 내부 루프는 최대 9 ⁴ = 6561 반복을 수행하며 일회성 스크립트이므로 그럴 것이라고 생각하지 않습니다. 최적화하는 데 많은 시간을 투자할 가치가 있습니다.

편집:
Xeon E3-1231v3에 대한 벤치마크, 아니요 mkdir:

./elemdirs.sh > /dev/null  11.66s user 1.73s system 173% cpu 7.725 total

그리고 그것과 함께:

./elemdirs.sh > /dev/null  13.80s user 2.16s system 156% cpu 10.215 total

예상한 수인 126개의 디렉터리를 생성합니다.콤비네이션여기서 k = 4, n = 9입니다.

Question 2

Perl 및 Algorithm::Combinatorics모듈 사용:

perl -MAlgorithm::Combinatorics=combinations -e '$"=""; map { mkdir "@{$_}N" } combinations([qw(Cr Hf Mo Nb Ta Ti V W Zr)], 4)'

그러면 포함된 4개 단어의 모든 조합에서 얻을 수 있는 126개의 카테고리가 생성됩니다. 각 디렉토리는 N이름 끝에 하나가 있습니다. 코드 배열의 초기 순서로 인해 개별 단어는 항상 알파벳 순서로 디렉터리 이름에 표시됩니다.

올바른 Perl 스크립트:

#!/usr/bin/perl

use strict;
use warnings;

use English;
use Algorithm::Combinatorics qw(combinations);

# When interpolating a list in a string (@{$ARG} below), don't use a delimiter
local $LIST_SEPARATOR = "";

# Get all combinations, and create a directory for each combination
map { mkdir "@{$ARG}N" } combinations( [qw(Cr Hf Mo Nb Ta Ti V W Zr)], 4 );

이는 거의 즉시 실행되며 더 많은 단어나 결합된 길이를 포함하도록 쉽게 확장할 수 있습니다.

아마도 Python에서도 매우 유사한 작업을 수행할 수 있을 것입니다...

재귀 셸 구현(재귀 셸 기능은 재미를 위해 매우 효율적인 경우가 거의 없음):

#!/bin/sh

build_combinations () {
    set_size=$1
    shift

    if [ "$set_size" -eq 0 ]; then
        printf 'N'
    else
        for token do
            shift
            for reminder in $(build_combinations "$(( set_size - 1 ))" "$@")
            do
                printf '%s%s\n' "$token" "$reminder"
            done
        done
    fi
}

build_combinations 4 Cr Hf Mo Nb Ta Ti V W Zr | xargs mkdir

읽은 생각Studog의 답변그리고 모든 면에서 영감을 얻습니다StackOverflow 질문에 대한 답변.

이 솔루션의 장점은 디렉터리 이름이 항상 로 끝난다는 것입니다 N. 재귀적 중지 분기는 N빈 문자열 대신 출력되므로 모든 것이 작동합니다. 이것이 없으면(빈 문자열 또는 개행 문자 인쇄) 명령 대체가 포함된 루프는 루프할 항목이 없으며 출력도 없습니다(변수의 기본값으로 인해 IFS).

Answer