Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- proc almostIncreasingSequence {sequence} {
- set list1 [lindex $sequence 0]
- set list2 [lindex $sequence 0]
- for {set i 1} {$i < [llength $sequence]} {incr i} {
- if {[lindex $sequence $i] <= [lindex $list1 end]} {
- set list1 [lreplace $list1 end end]
- }
- lappend list1 [lindex $sequence $i]
- if {[lindex $sequence $i] > [lindex $list2 end]} {
- lappend list2 [lindex $sequence $i]
- }
- }
- puts $correct1
- puts $correct2
- puts "Correct1 is true or false: [set correct1 [expr [llength $list1] >= [expr [llength $sequence] -1 ]]]"
- puts "Correct2 is true or false: [set correct2 [expr [llength $list2] >= [expr [llength $sequence] -1 ]]]
- puts "Correct1 is [llength $list1] >= [expr [llength $sequence]-1 ]"
- puts "Correct2 is [llength $list2] >= [expr [llength $sequence]-1 ]"
- return [expr $correct1 || $correct2]
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement