String comparison: Difference between revisions

Content added Content deleted
m (Added Sidef language)
Line 360: Line 360:
<lang cobol>"hello " = "hello" *> True
<lang cobol>"hello " = "hello" *> True
X"00" > X"0000" *> True</lang>
X"00" > X"0000" *> True</lang>

=={{header|ColdFusion}}==
In CFML:
<lang cfm><cffunction name="CompareString">
<cfargument name="String1" type="string">
<cfargument name="String2" type="string">
<cfset VARIABLES.Result = "" >
<cfif ARGUMENTS.String1 LT ARGUMENTS.String2 >
<cfset VARIABLES.Result = VARIABLES.Result & "('" & ARGUMENTS.String1 & "' is less than '" & ARGUMENTS.String2 & "')" >
</cfif>
<cfif ARGUMENTS.String1 LTE ARGUMENTS.String2 >
<cfset VARIABLES.Result = VARIABLES.Result & "('" & ARGUMENTS.String1 & "' is less than or equal to '" & ARGUMENTS.String2 & "')" >
</cfif>
<cfif ARGUMENTS.String1 GT ARGUMENTS.String2 >
<cfset VARIABLES.Result = VARIABLES.Result & "('" & ARGUMENTS.String1 & "' is greater than '" & ARGUMENTS.String2 & "')" >
</cfif>
<cfif ARGUMENTS.String1 GTE ARGUMENTS.String2 >
<cfset VARIABLES.Result = VARIABLES.Result & "('" & ARGUMENTS.String1 & "' is greater than or equal to '" & ARGUMENTS.String2 & "')" >
</cfif>
<cfif ARGUMENTS.String1 EQ ARGUMENTS.String2 >
<cfset VARIABLES.Result = VARIABLES.Result & "('" & ARGUMENTS.String1 & "' is equal to '" & ARGUMENTS.String2 & "')" >
</cfif>
<cfif ARGUMENTS.String1 NEQ ARGUMENTS.String2 >
<cfset VARIABLES.Result = VARIABLES.Result & "('" & ARGUMENTS.String1 & "' is not equal to '" & ARGUMENTS.String2 & "')" >
</cfif>
<cfreturn VARIABLES.Result >
</cffunction></lang>

In CFScript:
<lang cfm><cfscript>
function CompareString( String1, String2 ) {
VARIABLES.Result = "";
if ( ARGUMENTS.String1 LT ARGUMENTS.String2 ) {
VARIABLES.Result = VARIABLES.Result & "('" & ARGUMENTS.String1 & "' is less than '" & ARGUMENTS.String2 & "')";
}
if ( ARGUMENTS.String1 LTE ARGUMENTS.String2 ) {
VARIABLES.Result = VARIABLES.Result & "('" & ARGUMENTS.String1 & "' is less than or equal to '" & ARGUMENTS.String2 & "')";
}
if ( ARGUMENTS.String1 GT ARGUMENTS.String2 ) {
VARIABLES.Result = VARIABLES.Result & "('" & ARGUMENTS.String1 & "' is greater than '" & ARGUMENTS.String2 & "')";
}
if ( ARGUMENTS.String1 GTE ARGUMENTS.String2 ) {
VARIABLES.Result = VARIABLES.Result & "('" & ARGUMENTS.String1 & "' is greater than or equal to '" & ARGUMENTS.String2 & "')";
}
if ( ARGUMENTS.String1 EQ ARGUMENTS.String2 ) {
VARIABLES.Result = VARIABLES.Result & "('" & ARGUMENTS.String1 & "' is equal to '" & ARGUMENTS.String2 & "')";
}
if ( ARGUMENTS.String1 NEQ ARGUMENTS.String2 ) {
VARIABLES.Result = VARIABLES.Result & "('" & ARGUMENTS.String1 & "' is not equal to '" & ARGUMENTS.String2 & "')";
}
return VARIABLES.Result;
}
</cfscript></lang>



=={{header|Common Lisp}}==
=={{header|Common Lisp}}==