se/SE/dev/php-cli/PE_wariant_bit_table.xsl

<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
    xmlns:xs="http://www.w3.org/2001/XMLSchema"
    xmlns:bp="https://procesy5.pl/biale_plamy-schema.xsd"
    
    exclude-result-prefixes="xs"
    version="2.0">
    
    
    
    <xsl:output indent="yes"/>
    <xsl:strip-space elements="*"/>
    
    
    <!--<xsl:function name="bp:decimalToHex">
        <xsl:param name="dec"/>
        <xsl:if test="$dec > 0">
            <xsl:value-of
                select="bp:decimalToHex(floor($dec div 16)),substring('0123456789ABCDEF', (($dec mod 16) + 1), 1)"
                separator=""
            />
        </xsl:if>
    </xsl:function>-->
    
    <xsl:function name="bp:decimalToBit">
        <xsl:param name="dec"/>
        <xsl:if test="$dec &gt; 0">
            <xsl:value-of
                select="bp:decimalToBit(floor($dec div 2)),substring('01', (($dec mod 2) + 1), 1)"
                separator=""
            />
        </xsl:if>
    </xsl:function>
    
    <xsl:function name="bp:decimalToBitFill">
        <xsl:param name="dec" required="yes"/>
        <xsl:param name="len" required="yes"/>
        <xsl:variable name="bin" select="  string-join(bp:decimalToBit($dec),'')"/>
        <xsl:variable name="strlen" select="string-length($bin)"/>
        <xsl:variable name="brak_str" select="$len - $strlen"/>
        <!--<xsl:value-of select="concat(444,$strlen)"/>-->
        <!--<xsl:value-of select="  string($strlen)"/>-->
            <xsl:variable name="result">
            <xsl:choose>
                <xsl:when test="$strlen = $len">
                    <xsl:value-of select="$bin"/>
                </xsl:when>
                <xsl:when test="$strlen &gt; $len">
                    <xsl:value-of select="''"/>
                </xsl:when>
                <xsl:otherwise>
                    <xsl:for-each select="1 to $brak_str  ">
                        <xsl:value-of select="0"/>
                    </xsl:for-each>
                    <xsl:copy-of select="$bin"/>
                </xsl:otherwise>
            </xsl:choose>
            </xsl:variable>
        <xsl:copy-of select="$result" />
    </xsl:function>
    
    <xsl:function name="bp:if_bit_pos">
        <xsl:param name="bit"/>
        <xsl:param name="pos"/>
        <xsl:value-of select=" substring($bit,number($pos),1)"/>
    </xsl:function>
    
    
    <xsl:template  name="bp:next_bit_max">
        <xsl:param name="variant" required="yes"/>
        <xsl:param name="bit_limit" required="yes"/> <!-- like 6 -->
        <xsl:param name="max_possible_bit" required="yes"/><!-- like 1111111 -->
        <xsl:param name="loop" required="no"/>
        <!--<xsl:message>#80 f. v:<xsl:value-of select="$variant"/>;$bit_limit=<xsl:value-of select="$bit_limit"/>;$max_possible_bit=<xsl:value-of select="$max_possible_bit"/>; $loop=<xsl:value-of select="$loop"/>;</xsl:message>-->
        <xsl:variable name="variant" select="number($variant) + 1"/><!-- dodajemy 1 aby sprawdzic jak wyglada -->
        <xsl:variable name="curr_bit" select="bp:decimalToBit($variant)"/>
        <xsl:variable name="digits">
            <xsl:for-each select="1 to string-length($curr_bit)">
                <xsl:if test="substring($curr_bit,.,1) = '1'">
                    <xsl:value-of select="number(1)"/>
                </xsl:if>
            </xsl:for-each>
        </xsl:variable>
        <xsl:variable name="cur_bit_len" select=" string-length($digits)"/>
        <xsl:choose>
            <xsl:when test=" string-length($max_possible_bit)&gt; string-length($curr_bit)">
                <xsl:value-of select=" $variant - 1 "/>
            </xsl:when>
            
            <xsl:when test="number($loop) &gt; 5000012">
                <!--<xsl:message>#91 loop:<xsl:value-of select="$loop"/>; hit returning $variant=<xsl:value-of select="$variant"/>; $curr_bit=<xsl:value-of select="$curr_bit"/>;</xsl:message>-->
                <xsl:value-of select="$variant"/>
            </xsl:when>
            <xsl:when test="$curr_bit = $max_possible_bit">
                <!--<xsl:message>#90 brak kolejnych wariantow $variant=<xsl:value-of select="$variant"/>;$bit_limit=<xsl:value-of select="$bit_limit"/>; $curr_bit=<xsl:value-of select="$curr_bit"/></xsl:message>-->
                <xsl:value-of select="$variant"/>
            </xsl:when>
            <xsl:when test="number($cur_bit_len) &lt;=  number($bit_limit)">
                <!--<xsl:variable name="next_bit" select="bp:decimalToBit($variant+1)"/>-->
                <!--<xsl:message>#104 next <xsl:value-of select="$variant"/></xsl:message>-->
                <xsl:value-of select="$variant"/>
            </xsl:when>
            
            <xsl:when test="number($cur_bit_len) &gt;  number($bit_limit)">
                <!--<xsl:variable name="next_bit" select="bp:decimalToBit($variant+1)"/>-->
                <!--<xsl:message>#104 next <xsl:value-of select="$variant"/></xsl:message>-->
                <xsl:call-template name="bp:next_bit_max">
                    <xsl:with-param name="variant" select="$variant"/>
                    <xsl:with-param name="bit_limit" select="$bit_limit"/> <!-- like 6 -->
                    <xsl:with-param name="max_possible_bit" select="$max_possible_bit"/><!-- like 1111111 -->
                    <xsl:with-param name="loop" select="$loop"/>
                </xsl:call-template>
            </xsl:when>
            <!--<xsl:otherwise>
                <xsl:message terminate="yes">#107 f. else $variant=<xsl:value-of select="$variant"/>; $curr_bit=<xsl:value-of select="$curr_bit"/>; $digits=<xsl:value-of select="$digits"/>;</xsl:message>
                <xsl:value-of select="$variant"/></xsl:otherwise>-->
        </xsl:choose>
    </xsl:template>
    
    
    <xsl:function name="bp:next_bit_max">
       <!-- for ($i = 1; $i < 1024; $i++) {
                $bin = decbin($i);
                $array = str_split($bin);
                $sum = array_sum($array);
                if ($sum <= 3) echo str_pad($bin, 10, "0", STR_PAD_LEFT) . " = " . $i . "\n";
        }-->
        <xsl:param name="variant" required="yes"/>
        <xsl:param name="bit_limit" required="yes"/> <!-- like 6 -->
        <xsl:param name="max_possible_bit" required="yes"/><!-- like 1111111 -->
        <xsl:param name="loop" required="no"/>
        <!--<xsl:message>#80 f. v:<xsl:value-of select="$variant"/>;$bit_limit=<xsl:value-of select="$bit_limit"/>;$max_possible_bit=<xsl:value-of select="$max_possible_bit"/>; $loop=<xsl:value-of select="$loop"/>;</xsl:message>-->
        <xsl:variable name="variant" select="number($variant) + 1"/><!-- dodajemy 1 aby sprawdzic jak wyglada -->
        <xsl:variable name="curr_bit" select="bp:decimalToBit($variant)"/>
        <xsl:variable name="digits">
            <xsl:for-each select="1 to string-length($curr_bit)">
                <xsl:if test="substring($curr_bit,.,1) = '1'">
                    <xsl:value-of select="number(1)"/>
                </xsl:if>
            </xsl:for-each>
        </xsl:variable>
        <xsl:variable name="cur_bit_len" select=" string-length($digits)"/>
        <xsl:choose>
            <xsl:when test=" string-length($max_possible_bit)&gt; string-length($curr_bit)">
                <xsl:value-of select=" $variant - 1 "/>
            </xsl:when>
            
            <xsl:when test="number($loop) &gt; 512">
                <!--<xsl:message>#91 loop:<xsl:value-of select="$loop"/>; hit returning $variant=<xsl:value-of select="$variant"/>; $curr_bit=<xsl:value-of select="$curr_bit"/>;</xsl:message>-->
                <xsl:value-of select="$variant"/>
            </xsl:when>
            <xsl:when test="$curr_bit = $max_possible_bit">
                <!--<xsl:message>#90 brak kolejnych wariantow $variant=<xsl:value-of select="$variant"/>;$bit_limit=<xsl:value-of select="$bit_limit"/>; $curr_bit=<xsl:value-of select="$curr_bit"/></xsl:message>-->
                <xsl:value-of select="$variant"/>
            </xsl:when>
            <xsl:when test="number($cur_bit_len) &lt;=  number($bit_limit)">
                <!--<xsl:variable name="next_bit" select="bp:decimalToBit($variant+1)"/>-->
                <!--<xsl:message>#104 next <xsl:value-of select="$variant"/></xsl:message>-->
                <xsl:value-of select="$variant"/>
            </xsl:when>
            
            <xsl:when test="number($cur_bit_len) &gt;  number($bit_limit)">
                <!--<xsl:variable name="next_bit" select="bp:decimalToBit($variant+1)"/>-->
                <!--<xsl:message>#104 next <xsl:value-of select="$variant"/></xsl:message>-->
                <xsl:value-of select="bp:next_bit_max($variant ,$bit_limit,$max_possible_bit,$loop+1)"/>
            </xsl:when>
            <!--<xsl:otherwise>
                <xsl:message terminate="yes">#107 f. else $variant=<xsl:value-of select="$variant"/>; $curr_bit=<xsl:value-of select="$curr_bit"/>; $digits=<xsl:value-of select="$digits"/>;</xsl:message>
                <xsl:value-of select="$variant"/></xsl:otherwise>-->
        </xsl:choose>
    </xsl:function>
    
    <xsl:template name="PE_wariant_bit_table">
        <xsl:param name="wariant_id" required="yes"/>
        <xsl:param name="elements_cnt" required="yes"/>
        <xsl:param name="bit" required="yes"/>
        <xsl:param name="max_possible_bit" required="yes"/>
        <!--<xsl:variable name="table">
            <variant>
                <xsl:for-each select="1 to $elements_cnt">
                    <pos>
                        <xsl:attribute name="pos" select="."/>
                        <!-\-<xsl:attribute name="bin_pos" select=" bp:if_bit_pos($bit,.)"/>-\->
                        <xsl:if test=" string-length($bit) &gt; 0">
                            <xsl:attribute name="bin_pos"  select="substring($bit,.,1)"/>
                        </xsl:if>
                        <!-\-<xsl:attribute name="bin_poss" select="$bit"/>-\->
                        <!-\-<xsl:value-of select="substring($bit,.,1)"/>-\->
                    </pos>
                </xsl:for-each>
            </variant>
        </xsl:variable>-->
        
        <!--<xsl:variable name="sum_bit" select="sum($table/variant/pos/@bin_pos)"/>-->
        <!--<xsl:variable name="sum_bit" select="1"/>-->
        <!--<xsl:choose> errory
            <xsl:when test="$sum_bit = $elements_cnt and $sum_bit &lt;= $bit_limit">
                <variant>
                    <xsl:attribute name="no_more_variants" select="$sum_bit"/>
                    <xsl:attribute name="elements_cnt" select="$elements_cnt"/>
                    <xsl:attribute name="bit_count" select="$sum_bit"/>
                </variant>
            </xsl:when>
            <xsl:when test="$sum_bit = $elements_cnt">
                <variant>
                    <xsl:attribute name="no_more_variants" select="$sum_bit"/>
                    <xsl:attribute name="elements_cnt" select="$elements_cnt"/>
                    <xsl:copy-of select="$table"/>
                </variant>
            </xsl:when>
            <xsl:when test="$sum_bit &lt;= $bit_limit">
                <variant>
                    <xsl:attribute name="bit_count" select="$sum_bit"/>
                    <xsl:copy-of select="$table"/>
                </variant>
            </xsl:when>
            <xsl:otherwise>
                <variant>
                    <xsl:attribute name="bit_limit_hit" select="$sum_bit"/>
                </variant>
            </xsl:otherwise>
        </xsl:choose>-->
        
    </xsl:template>
    
    <xsl:template name="main">
        <xsl:call-template name="PE_wariant"/>
    </xsl:template>
    
    
    
    <xsl:template name="PE_wariant">
        <xsl:param name="elements_cnt" select="10"/>
        <xsl:param name="max_possible_bit" select="1111111111"/>
        <xsl:param name="EconomicDistanceCut2"/><!-- tabela do podstawiania danych i wyliczen -->
        
        <PE_wariant_bit_table>
            <!--<xsl:variable name="no_more_variants" select=" math:power(2,$elements_cnt)"/>-->
            <xsl:variable name="no_more_variants" select="6"/>
            <xsl:attribute name="no_more_variants" select="$no_more_variants"/>
            <xsl:for-each select="1 to ($no_more_variants+1)">
            <xsl:variable name="wariant_id" select="."/>
                            <!--<test><xsl:attribute name="wariant_id" select="."/>
                                <xsl:variable name="bit" select=" string-join(bp:decimalToBitFill(.,$elements_cnt),'')"/>
                                <xsl:attribute name="bit" select="  string-length($bit)"/>
                                <xsl:value-of select="$bit"/>
                            </test>-->
                <xsl:variable name="bit" select=" string-join(bp:decimalToBitFill(.,$elements_cnt),'')"/>
                <xsl:variable name="bit2" select=" string-join(bp:decimalToBit($wariant_id),'')"/>
                <xsl:variable name="bp:next_bit_max" select="bp:next_bit_max($wariant_id,$max_possible_bit,$elements_cnt,0)"/>
                
            <xsl:variable name="PE_wariant_bit_table">
                <PE_wariant_bit_table>
                    <xsl:attribute name="wariant_id" select="."/>
                    <xsl:attribute name="bit" select="$bit" />
                    <xsl:attribute name="bit2" select="$bit2" />
                    <bp:next_bit_max><xsl:attribute name="bit_od"  select=" string-join(bp:decimalToBitFill($bp:next_bit_max,$elements_cnt),'')"/>
                        <xsl:copy-of select="$bp:next_bit_max"/></bp:next_bit_max>
                    <xsl:call-template name="PE_wariant_bit_table">
                        <xsl:with-param name="wariant_id" select="$wariant_id"/>
                        <xsl:with-param name="elements_cnt" select="$elements_cnt"/>
                        <xsl:with-param name="bit" select="bp:decimalToBitFill($wariant_id,$elements_cnt)"/>
                        <xsl:with-param name="max_possible_bit" select="$max_possible_bit"/>
                    </xsl:call-template>
                </PE_wariant_bit_table>
            </xsl:variable>
            <xsl:choose>
                <xsl:when test="$bp:next_bit_max = $no_more_variants">
                    No More variants by $bp:next_bit_max hits!
                </xsl:when>
                <xsl:when test="$PE_wariant_bit_table/PE_wariant_bit_table/variant[@bit_limit_hit]">
                    <PE_wariant_bit_table>
                        <xsl:attribute name="wariant_id" select="$wariant_id"/>
                        <xsl:attribute name="bit_limit_hit" select="$PE_wariant_bit_table/PE_wariant_bit_table/variant/@bit_limit_hit"/>
                        <xsl:copy-of select="$PE_wariant_bit_table/PE_wariant_bit_table"/>
                    </PE_wariant_bit_table>
                </xsl:when>
                <xsl:when test="$PE_wariant_bit_table/PE_wariant_bit_table/variant[@no_more_variants]">
                    <PE_wariant_bit_table>
                        <xsl:attribute name="wariant_id" select="$wariant_id"/>
                        <xsl:attribute name="no_more_variants" select="$PE_wariant_bit_table/PE_wariant_bit_table/variant/@no_more_variants"/>
                        <xsl:copy-of select="$PE_wariant_bit_table/PE_wariant_bit_table"/>
                    </PE_wariant_bit_table>
                </xsl:when>
                <xsl:otherwise>
                    <xsl:copy-of select="$PE_wariant_bit_table"/>
                </xsl:otherwise>
            </xsl:choose>
        </xsl:for-each>
        </PE_wariant_bit_table>
    </xsl:template>
    
</xsl:stylesheet>