Question

我想编写一个代码，只要字符串中放置相同的字符，就会将字符串的字符串按不同的顺序排列。例如，假设$ a =＆＃34; ksv＆＃34;，只要有人输入字符串值＆＃34; svk＆＃34;或＆＃34; kvs＆＃34;，我想写一个代码，这些字符串相当于$ a。这是一个例子，

<?php

use Illuminate\Database\Migrations\Migration;
use Illuminate\Database\Schema\Blueprint;

class CreateArticlesTable extends Migration {

    /**
     * Run the migrations.
     *
     * @return void
     */
    public function up()
    {
        Schema::create('articles', function(Blueprint $table)
        {
            $table->increments('article_id');
            $table->string('article_head', 500);
            $table->string('article_body', 10000);
            $table->dateTime('created_on');
            $table->timestamps();
        });
    }


    /**
     * Reverse the migrations.
     *
     * @return void
     */
    public function down()
    {
        Schema::drop('articles');
    }

}

@input [1]是用户将字符串放入的内容。首先，我将所有不同类型的顺序列为数组（就像示例一样），这样如果数组中的一个元素与@input [1]匹配，那么我将它作为正确的答案返回。然而，如果我有一个长度更长的字符串，这是一项相当漫长而乏味的工作。请给我任何建议。谢谢^^

Answer 1

你想要一些形式

if (normalize_string($input) eq normalize_string('ksv')) {
   ...
}

其中normalize_string是一个子类，它为所有等效输入返回相同的字符串，并为不相等的输入返回不同的字符串。

normalize_string的确切定义将根据您认为等效的内容而有所不同。

如果您想忽略重复的字符（abbc等同于abc）：

sub normalize_string {
   my %h;
   ++$h{$_} for split //, $_[0];
   return join '', sort keys %h;
}

如果每个字符的实例数相关（abbc不等于abc）：

sub normalize_string {
   return join '', sort split //, $_[0];
}

当然，当参数为常量时，可以内联规范化形式。

if (normalize_string($input) eq 'ksv') {
   ...
}

perl中字符串的字符顺序

1 个答案: